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SPECIAL NOTE 


The Information in all three volumes of this document has been 
carefully checked. It is current at the time of publication, 
the Old of August, 1977. This document will not be revised 
to show corrections and further changes. Rather, a new 
document will be issued toward the end of 1977 incorporating 
all changes, and making necessary corrections. The new volumes 
will be issued under the title: "As -Built Design Specifications 

for the CAMS Image-100 Hybrid System, as modified. The new 
document will be issued as LEC-11216 and JSC-13118. 

Please bring errors and corrections to the attention of L. Giddings, 
333-6311, mail code C42. 


ABSTRACT 


This document shows the CAMS Image-100 Hybrid System as it was 
actually built. Volume 1 lists the computer programs for each 
portion of the system, together with functional flow charts. 
Subroutines and function for each program are described in the 
summary. Volume 2 presents detailed flow charts and listings 
of all items listed in the first volume. The third volume pre 
sents brief descriptions and listings of subroutines shared by 
several programs. All three volumes close with an index of 
computer elements of the entire document. 
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0129 &6 te 4U. 

C 


013 n 

0131 

JU2— 


0133 

0134 

0135 
-0116 

0137 

0136 


0139 


0140 

0141 

0142 

0143 

0144 

0145 

0146 


0147 

014 fl 


014V 

01*ic 

0151 

0192 

0153 

0154 
0199 
0156 

0197 

019d 

0199 

016C 

0161 

0162 

C163 


420 

430 

c’ 

C 

435 


437 


C 

440 


C 

C 

C 


490 


C 

c 

c 

r 


4^i 


C 


454 

C 

495 


DO 430 U1«N?ACQ 

tr (AcDISR(2) .EO, ADATER(2iI>) 6R Tf 440 

— aft.ig.Aos > 


J ■ <(N 0 AC 0 * 5 ) 4 ( (NRACQ* 1 )* 3 ) • 1 ) 

D 0 437 l«li 4 

CHOTA ■ IBYTE rj.ipun 


C Hlg 34 tll ■ 
J ■ J ♦ 1 
G 6 TC 452 


iiita ai i/iQiLa/iQ o 


4 


?'P6^ (UMT«r9l,TvPF«‘U*'KNBMN* t\AMfc«»CSOC.l3D0T6XY,THP*| 

1 R££jldH^ZfcfNil0Tl^HAKF6C*ia.6£Cb95«'SeaitfNTL4L’i .. . 

2 F0OM,.u^|p(jRf^4TTE!>* ) 

REAr (fRl) XYC'*R'' 

Close <U'lIT«FRl,rlSPJ'SE«*SAVr' j 

’'7 '450 ir«l,4 

CALL iRV UCiXYC^Rn(N4?),BUfrR) 

CALL !*A|X 

Ch 1234<IC) • bUFFH<XYCCR!'C'j«2»l)> 

CONTINUE 


\1 t ('<-l)» 2 *i 

.>PFn (UNlT«FP 2 ,TyPF»*UNK- li‘«(M ,V 4 i'E«*t 300 « 11 SCATXY,TMP»i 
1 96C?Ri.iSl?E«Nr2TS,MAXRECi! aSPvOj^CCESSF^OIRECT*) 


0^ 455 N-'4«l, Nt’Sf'wr 

ir (Spv»IrD(l,iM 9 -) .ME, U G 7 Tt 455 

P6A|: {FR?'Nk!') WCPRO 

ir (XvreppCM) ,tc, 0) -\C 459 

''I i.iYC^scrjii 

X2 • Xl ♦ I 

Yl m XYCfP0(‘ll4l) 

Y2 ■ vl ♦ 1 ORIGINAL PAGR IS 


rp 494 CmN« 1,4 
Af}f • C Hl 234 ( CNN) _ 
iMr • i 

Cali vHALTR (Kl,vi,X?,Y2,CHN,ARf,l\0,rLG) 

cp''Ti\ue 


OF TOOK OUAUTY 


C 7 'TlNUE 




c 


r»!»TRA:'i 

ly-PLUS 

V02-04 12144138 ?9«A'jQ«77 PAGE 

IWTPHtJ, 

FTiJ 

_Z1P|!’L«CK5/W^ . _ 

P. 


0164 


J ■ 1 

0145 


:i3 440 I«lt4 

0166 


DALA^^itJ) a CH1234U) 

0167 


0ALA«m(J*1) a flKl234(tl 

0160 


_HiLAPifl.J42) ■ 0 

016y 

4f?0 

J t J ♦ 3 

0170 

n 

0ALaRm<13) » -1 

0171 

r 

C 

c 

CAI.L l^l, (PALA9M 

* 

0172 

c 

190 

CALL wSE'<?5 (vl 

0173 


»6,200» 

0174 

20 0 

rB«vAT<iHO,* . rR?>.i The '» 


1 

/,• (]) i-.irr’'.- 


1 

/, ’ (?) D’T ilLi '"P*. 


3 

/, • (3’ TPAJfcrT RV r>L'T* , 


4 

<4) TvPl'.'9 M ' C9HRt:^T n;iT SELECTIIJM*. 


5 

(3) SP'i'L" ■’CT LA?fc:.rG*# 


6 

r 

/, *i(6’ SI>' *L' ^’LT TVPI Q >• ) 

0176 

V 

c 

CAU /OT^UT (7) 

0176 


f'EAi (0,3^0) 

0177 


F|t'’--AT (74A1) 

4l7a 

c 

CALL rP7'.T n-lP-jf,74' 

017^ 


IP (l'.PLT(l) .PL. •<•) ''-t !:■ 9090 

C1?0 


IP (I'-PLT(I) .c.I. Pi') T-? in 

01«1 


IP (l\-PoT(n ,pa. »i') -"i T:^ inM 



IP (InPOT(I) .'■Q. *2') "2 To lro2 

C1R3 


IP (I.vPlt(I) ,r-L’. '3') T> icr3 

C1P4 


IP ( 1\FlT( 1 ) .'-.j. M* ) ? T-> lc')4 

01P5 


IP (I'PUT(l) , -;j. 'i* ) T ic .5 

OlPO 


IP (IvPLiT(l) .EL. 'e') -? T’ lc*'6 

0107 

r 

C 

c 

r ' 19 0 

OIOS 

Call (trvpu 

01P9 


<ii T 2000 

0190 

If'C? 

r'A'-L HL:-)vUO (c)fp| ) 

0191 

r- 

r;>. t ^ 20 00 

0192 


call T®AJPL (tVH ) 

0193 

c 

f 2000 

0194 

. CaU GTYPc (f XFL) 

0195 

c 

GO Ti- ?0"0 








?■ • 

i C 


riRTftAN tV^PLUS 


i-' 

JAM 1 nn 

0196 

1009 

> 

0197 




C ” 


0198. 

1006 

*’ 


C 

r 



? 

L' 

'~fi99 

2000 

c .. . 



c 



c 



c 


. 0203 

■ an9,f. 


0201 



0202 



0203 

999E 


0204 


C; 

0205 

50C 




i- 

0206 

c 


0207 

c 


0208 



0209 



( 0210 


>/ 

' 0211 





A 


c 

j 


c 


0212 

90C.1 


0213 



0214 



0213 

• 

'■ 

0216 

• 


0217 

• 


0218 

• 


0219 

• 


022C 

• 


0221 

• 

J; 

0222 

• 


0223 

• 9919_. 


0224 

• 9990 


0223 

• 9991 


0226 



0227 



0228 

C 

C 

c 


V0t*04 
/TPiBt PCkS/WW 


12144138 2«*AU0*77 


PAQE 7 


CALL D^TLAB (EXFL(N) 

. 

CALL S^YPE lEXFL^IiuPMEEl 


IF (ExFL ,N£« 1) Q0 TB 180 


ELAP • 2 

CALL EVAPSE (ELAPI 
CALL hSEkPG (3) 

MBITE (6.S00) 

F0BmAT <//,•! (p)ESTA«»T 00 ElX)lT >M 


origcjai, 
Op ^ 


OP PAGE ® 

quality 


CALL eUTPUT (7) 

BEAT- (6,300) INPijT 

CALL FB0MT (1NPlT»74) 

JF (LAlPUltl) .Et. 'BM 10 l£ 1£. 
IF (I\PUT(1) ,FQ. »X») r,0 T7 9000 
50 T''‘ 9998 


clks e <g‘jlT«7j5lSP£5F«'SAyg') 

CALL n^TACH 

iNCLUDt 't300,33rAMSAV6,INC* 

0PE^(^'^ IT*l,^*hF•♦C3On♦l3 •.L?BAL’,TMPU«,r0RM»»UNr0RMATTED», 
TYC?,'u?'KA.fc^N» ,PRP«9999) 

^oiTedlCl 

- -J^ITEIDCE - 

-PiTe<i>C3 

'wPlTC(l)C4 
wP1Tf.(i)C5 
CL?Se<U'''lT = l) 

G.' T/ 9091 

TYgL_?i5Jl _ . 

r^P^'A^dX, MPEK PAlLUOfc 0‘j f3OO.nGL09AL.TMP— N0 PESTARTi) 
CONTINUE 
CALL SfcTEF <*>0) 

CALL EXIT 


.cNP 


I 

> 


7 










i- 

• ■ A • 


SBGHBNT 

ON 

^DISPLAY?. 


"WARHING 
NO ACQUISITION 
ON DISPLAY" 


XY COORD. 
FILE CIR 
IMAGE 


READ XY 
COORDINATE 
FILE FOR 
CIR IMAGE 


COMPUTE 4 
CHANNEL DATA 
FOR DOT "N" 
FROM DOT DATA 


CIR 

IMAGE 


OBTAIN 4 
CHANNEL DATA 
FOR DOT "N" 
FROM VIDEO 


SET SCATTER 
PLOT WINDOW 
INDEX TO 1 
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13.1 SUBROUTINE 8TYPE 


_ HFeHTWAN ly.PLUS V02 «q 4 _ ?e«AUQ*77 1 

STYPfc.'TN /TP|f^LSCi'S/W'< 

0001 Sgp«!»uT|v6 STYPfc (ExPli'^PTYPe) 

C 

c 

c 


OC02 


CwcCii&ccccjccccccccccccLccc cccccccccc cccccccccccccecccececccc 

c 

c 

c si'iRLi; o"’T tvocj’jg ^^uti 'E original page It; 

C OF POOR QUALITY 

ccccciccicccii:£££crc':rcc':tccccccccccccccccccccccccccccccccccc 

r 

C 

C 

implicit ivTj^^Qr^' (a* 2 ) 
r 


0803 


SYtr- i:.P)T <7 ),P->TYPt 


T 


H * 

■4 » 


0004 

050 !. 

OOOft 


0007 

OOOj 

0007 

oeij 

0011 


0012 

0013 

0 C 14 

0015 

CC16 


noi 7 

OCl? 

CC1« 


r *' 2 " 

PC2i 

0C22 


« 

0C23 • 


InTl jt 'SV|C 3 '’J', 33 CA‘^^C'*'!^«i, 1 aIC* 

•SV«r3'^0i.nCA‘;SP4R.'.f', I- Ct 

P4^A ‘L7<;*^ 'AVCATto'i 'AyS7tf*6r#‘'»YCHN*4,NPIX«l96#MLlN"ll7iHAXPLO«50 
1»MAX-'*1 i..-,'’2TS*2P9,iLS-<ia«lO,DSbKlP*10,M*X4CP«6|WAXACCB4» 
igTi. ■)«ic 

hO jr-'.iLi’'<cr (CJ .AC 'ATt), rC'’*ISH».(C3,PFL4f5),(n4.Txi),(C5,PISK|0) 
lNTt'“L*’ Ci{4AV),C2(2‘;a)#C3(7l ),C4(344),C5(629) 

I^TglP AcrATfe,S'/t:’*T,5J SP 'PiC/TKNXjCAjyw 
HVTf. 1> .ver, .' JCHA?', ’TCATitJeTCLU 

/, i^f.1 /AC''ATb< i, :AX*C'*)|C < 'VtC(''AXCW\i*<AXACC) ,^«CMAN,^I0SU'’» 
lSL=fC'T<‘ AXSJ'I.S'l'iP. PC'AXS 6 ),CaTK‘.T(HAXCAT),CATTH(HAXCAT),NJI 0’', 
2'.k'P:j* TS)|'^'3TCL;j« '^DeTS» 

tKT^r^:) 4 C 4 TE 5 >,S ' A' ALST,f-l,r.i.AY. 0 .'TCAV,pgATPl,TnAT 6 l 
lMT?r.rP PCtTF2,Tf'ATt?,PTAr-3»T*'ATE3,rA»NAM,OiSKin,^ANDiflM,GPIO 
D‘U^L';#‘-iCACP,‘^. Il'.H.S' NLI..^STaRT,nTVPE1,ALP«A( P0 
«YT£ PrTCT.PCTCTi, vAP, VAPw?,:LA->fcL«TYPc 

>?/ISPi,';cLrL''-i v..'Cr,/LA7=S(2,HAXACD).SPlLGP<MAXAC0)« 
15L)''(;L( '/XAff'i.ru* A:*l‘'AVArL), I^*'ATE(2J, 4NALSTf5).FLr)D*V(2)» 

2r?T0#y (2 J STA'.T, .TvPtl,f:j-T''lf4),TDAT€l(2)|O0ATC2(2),TDAT62C2), 
JPtATf J<2 >,TI'aTP 3(2), ’'CA^, -AT\4*',^4*CAT),4LP(MAXCAT)*ALPai 
4 PCTt7(^AyCAT),PCTCTF, V aN(MAXCAT)i VaR? 

iNTbTc'’ gFLA';i,ErL.\r>2»f rLA-3|trl.A64,RFLA05,0rLAGl,UFLAG2iUPLAG3, 

1 jFLAr* 

i NTfeCfjC Pr(,Afi,''3‘“ • T 

t:z -'-. /r’'P3/PrUA',,-S‘^N^ T.cFLALI .EFLA62.6PLAGS«PFLA64»EFL4C5,'jrLAGl 
liLrt.iG2,l!r(,AG3,oFLA34,r E..LAb(MAXSL«) 


iNTiioC- TXi,TVi,ta-',tv'>, AC- lSP,G,e.OTWlND,D 0 TA»Y«GMlN,GMAX,FUL 
sp. iai;,cla ‘.r-,rL- ^ " 

C 2 ". '••./t:'P 4 /TXl,TV. , Yv 7 ,TVp, ix^, lYi, lX 2 ,|Y 2 ,ACnXSP( 2 ),IIl( 4 ),G< 4 l, 
i^( 4 ),oT, iN-( 5 , j»’iT r),spvi .Gts.fHasp-ni.iMwiNPiAjiMiMOaTi 
2 ''aT*Ry <vOeTS)»r,MI^ .G‘<AV|riiL<?, 7 ),CL 4 -Nn(«),CL 04 Nn(A) 

/^/H 5 /cISK 1 L.Ra C' TPliCPlOlNOaTSJ.gLABELl^DaTS), 


f 


riRTRAN lV*PtUS V08.04 t2l46l04 29*AUQ«77 

--MttExEIt! hffl?LtCM/MS 

• &TVP6(NO0f8)iRECLflC 

C . .. 

c 

c _ 
c 

c 

data ■pWTvpg/b/ 


paoe 


0024 


C 

c 

c 

c 

c 


0029 

C 

EXFl • 1 

0026 

C 

IP 

CAtH^SEXPG (41 

0027 


WPIT6 <4,100 » ,TYPE<N),»BTYp6 

0C?ft 

AfiP _ . 

FPPmAT (IMQ,* P^<:Vt0US TyP^ P0R D0T mJHBER 


1 

r 

/,’9'^FAULT f**PE IS SIl,* >M 

0029 

w 

CALL ?UTPUT (7) 

0030 


*»E*0 (6,209) IMP:?! 

0031 

200 

C 

F0PmAT(74A1 ) 

0032 

"call >P0’jT (INPUT, 74') 

0033 


IF (IaPUT(I) ,FQ. 'X') oetlpn 

0034 


IF (1\PUT(1) ,FO. 'S’) r.0 T7 9999 

0039 


IF (I\FuT( 1 ) ,EQ. * *) r,P to 8C0C 

0036 


IP ■ 0 

0C37 


-tAkL_LMIf <lP,LPi'Ti74,- E-T) ... 

0036 


IF (NB«T ,LT, 0 ,PR. N6WT .GT, 2) fiR Tp ; 

0039 

“prtvpe ■ nfut 

0040 

aooc 

CALL uSEvpG (2) 

0041 


write (6,300) PRTYPE.N 

Cp42 

iro 
c ” ’ 

F0R?*AT (IMP,* TYPE Sll,* FS'O OET MUHBER », 

0043 


IF (TvPE(N) ,E8, 1) NtYPEl • NTyPEI • 1 

0041. 


IF (PBtYPfe ,E0. i) ^TYPPl ■ NTYP61 ♦ i 

0049 


TyPE(^) a PRTYPfe 

0046 


UFLAG3 * 1 


V 

c 

c 

c 

c 


0C47 


C2*.TI\'J6 

0046 

9999 

EXTL a 0 

0049 

C 

U 

V 

c 

_ c 

RfctuPK' 


M3,* IS 


0090 


Mi, 







INTFF 


/ 

CONVERT REPLY 
TO DECIMAL 
••NEWT- > 



YES 


SET PREVIOUS 
TYPE TO NEW 
TYPE 

PRTYPE=NEWT 
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HrPRTRAN IV-P^US V'52-f*^ l2|4«.l3i 29-AUG-77 PAGE 1 

FlMDPT.rTNi /TP|'-LlfCXS/k»« 

OCCi Sy0(».:oTlvE FINPi^TCMiEXn.) 


ocrg 

QOPJ 


0004 

000*5 

OCCfe 


0007 

OOCo 

ocn<;< 

ocio 

OCl 1 


oci? 

Oill.l 

OOK 

001^ 

0016 


c 

c 

JnPt :IT iMEuPR (A-2) 
c 
c 

=*yTe lNPttT(74),«»(;Ln6F 
C 
r 
c 

livPi/ pfc •svicior..3ictt'«5C INC 

r •S'^ I [300,310* -'SPAP*'*. I' C* 

OA“ t-' TpP >’AXC* T«t.' »f-AySuns6r »' A*Ct^N»4,NP|X«l 9A, VL.lN«ll7»HAXFLDt5fl 

1, UAValiiNllSTSeaOS .IJI.S!' ieBlO,i3?^SKlP«tO,HAXACP«6|MAXACC«4| 

2MoSP' ‘ »6 * N'.'DTW!j« 1 i* 

f.yj I Valence *Tt)i (CtiISeg), (C3iPFlag), (C4iTxi>i(C5,d-iskid> 

1 \’TEr Cl ( 4A9 ) , rj< < Sc ) , C3 ( 7 1 ) . C4 1 34A ) , C5 ( A29 ) 

c# 

I.\.TC^F'< AC’'ATt,S ^••••AT.SU' P ’P,C«1KKT|CATTW 
JYTE VEn,"fC»<4l..* . 3Ud,'J -TCAT»02TCLC 

C,. -y v/rl:*Kl/ACr'ATt (c ..-AXACf ) ,Cnf Vfcr(’*AXCMK',MAXACC) ,N7rHAN,N0SUR. 
iS'wlC^ r< -*xsy-),siu! :p('‘ AXE ■«>lCAT^*•T(MAXCAT),CATTM(HAXCMT),^|t^D^ 

< jk’nL, T*^,n^TC* T«u, .'Ti ),^t?TCLC(^neTS) 

I AD*T*:v,,S'.!.. £, A‘ A(. S’ , FL^l^AV , D^TOAV, PD aTEI, TOATEI 

ISTcre? PDATF2,T?'*Tfc?,Pl.ATr3,TrATfc3iCATNA*«,0!SKin,RANC?P.|GPin 
^;YT6 pi-LFl,f,'.»’.*CC, TL'*'P.5 )"\PL.>STaRT,NTYPF 1,ALP,AI.PP 
jyrp ortrT.prTrT'*, ■ < " , A-'v* , OuA'’feL» TY^E 

rjiMM- /cVo/IS-G,! : lPU'**' klAC^, ; LATPS(2iMAXACr>) ,SPILGR<^’AXACD> , 

isci 'lEl C AXAriO , i/Arpi , if •' ate <2> , ANALSKE) #FL0DAV(2) , 

STAf-T,: typr j ,pq . yri t 2 ) , TDATEK2) ,pDaTE 2(2) . TDATF2<2 ) . 
3ri;ATET(5),TLATf-3(2'»‘ • CAT,':at4 •►•(► aXCATJiALPIMAXCATIiALP®# 
t>c;TCT( CAT) ,‘’CTCTl , VaA(MAXCAT) iVAPC 


OCIV 

o:i<; 

OCIV 


oc?o 

0021 

0C?2 


CC?3 


Jiv7»“i" hr I. ASltc^L i'i’»!riA'"3,tF0A64,crLAG5,l.*FLAGl»llFLA&2»UrLAG3, 
l-'r*.A''<. 

l\Tcr-hF PPi.Afwl SKV T 

p /(«; ••T/PFl.AO, ’S''* ''T,t4LAlji i*M Ari2,EFLAG3, EFCA04 i FPLAG 5, UFLAGI 
l.OFL*C-?,'-'H A^>3.|JPU '04,' h •L'Brw ASL«) 

Ixl.TY*. ,T>-,TYi’, •.C''I"H,ti,h,UTWINn,r’2TARV,GMlN,GMAX,FUL 
Sp.IKL.CL.. .-.r,'"L.'> 2 

Tc'-v, /: k4/txi,tv I ,tx3,ty', ixi , ivi, IX?, i y?, ACniSP(2) » iI1(4),g(4). 
1 '(A) .I f . IN! (5,* , rT • I ) ,SF .1 c<3, PSP'in), IMyl^n(4),^lUMD^T, 

2 :,*TA»-v(' . Gf‘4V,F(^l ( ?, 7 ) , CLA«iNn ( p ) , CLUWNP ( R ) 

t*- 4 JTI" (• ),6Rir<ND'"TS),DLAP6| (NDRTS), 

lTVPt<-P7YS),PECL'^C. 


o:r< 

CC25 

/»< 

W 

c 

r. 

0026 


IP ? *:IE r»:T.*"7(!f'),XA;s V(!?),xYc(!PO{418)»r0TNS(2O9) 
w*T(i>,f. SPci'), iT(4) 


til I VAlf CE (SFclr r . *n » f P'^'I^D, iT) 


/S 


V ':t !S 

c." i.i'AL^rv 


i. 


FeRT^AM IV-PlUS 

.iUi£0Ii£lA .. 

C 


0027 

0028 
0029 


4 . 


% 


C 

r, 

C 

c 

c 


V02»CA 

miEL^tJiSZWB. 


6XFL • 0 

IM-LA.. 


{2146131 29«aU&*77 


PAGE 2 


FR? « 3 


003C 



SEL.oPF « *K' 




0C31 



CALL hSEKPP(5) 




003? 



vRITF (6,10o) St'.u'-F 




0G33 

no 


FBPriAT<lwOi * SFL'^CT S\ 

^'QlE 

D/T 

FR0M THE', 



1 

/i' C'jPRENT 'J3T (S)tL6! 

r.y\iK 

', 




2 

/,• ft* JEVef'AOO 

ijp* 

1 


c 

3 

/,’* (S)LiRSPR • 

1 Al 

>M 

0034 

c 

r 


CALL. •*"TeuT(7) 




0035 



•’KAO (6,200) 




0036 

200 

r 


F5?t;M4T(74Al) 



• 

0C37 



CALL r‘^evTU''Pi'T,7<) 




0038 



IF (If'PUTd) ,cc. 'r-M 

'"'-.kl 

7 ' 

1C 

0039 



IF (r-.PuT<i) , *\n 


Tr» 

2C 

0C4fl 

yv9o 


'=*_PL_» 1 




0041 

r 


E T 'vi ^ .V 




0042 

r 

20 


IF (IlPUT(I) ,Fu'. • •) 


T 

22 

0043 



tF (!-PUT(l) ,co. *K») 

^9 

T-- 

2l 

0044 



IF (I'-PUTd) ,P0'. 

i0 

T •• 

2l 

0045 



IF (l-PUTd> ,*E. 'CM 


Tr* 

10 

0046 

21 


SELOF.F ■ IL'Pl»Td) 




0047 ■ 

22 


IF (5QLDFF ,FU. *SM 

U ii T ‘^ 

1000 

0043 

f' 


IF (SELDEF ,EQ, 'I'M 

IZ 

2000 

0049 

c 

25 


CALL ^‘-E'<PG(2) 




0050 



aVITc <6,300 




0051 

30 0 


(//,'% SLLECT a 

D ‘T 

uv 

CCQS7R AND ENTER 

r 

V/ 

1 

FFADV >•) 




0 052 

r 


“CAUT 7.otPUT(7)”' 



- 

0053 

V 


I'^EAO (5,200) I»'P;iT 




0054 

c‘ 


CALL F^iBMK r>JPtJT,74) 




0P55 



IF <I'.PUT(1) jFO', 'AM 

-;0 

T? 

9999 

0056 



IF (I\PLTd) ,PC. 'uM 

^,e 

T'’ 

10 

0057 



IF (iMPoTd) • M 

G0 

J9 

25 


I ( -.r 


• M , 


riRTRAK. 

fINOPT. 


0058 

0059 
QQOO 
0081 
0062 


iv.plus 

FTJI 

c 
c 

c 


VQ2-04 

/TI» i 3LeCKS/ WB 


12146131 29,AUG«77 


CALL (XAMDY) 


UL* 

UL.Y 

L(fy 

LPY 


■ XAN0V(2) 

■ JLLMQYM) 
» XAN0V(2) 
• XaNDY(4) 


2*(XAti0v(S)) 
191XAWY19J) 
2«(XAPDy(3)> * 2 
2f(XANDv(5)) * 2 


PAOe 3 


0069 

c 

C • 1 _ 

0064 

c 

ePE\ <UMT»r9l,TvPE«»y?.’KMBwk;t,NAM6*'t300il3DPTQXY 


1 

PECeRDSlI6«Nr'0TS.HAXP6C»l,ACCESSt«8EOUENTlAL*» 


2 

r 

P2Ps»*0NrapM4TTfer.* ) 

0065 

V 

PPFV‘ {UNtT*FR2,TYPE*'UNn*.0j\i,NAHE«*t3OOil5SCATXY 


1 

c 

r 

PEC/PdSI ^E•NDeT$.l1AXPEC•^BSPwD< ACCESS! tolPICTM 

0066 

c 

C0 360 l»l.N7SPLp 

0067 


tr <SPI-IVD(1,I) .EO, Ot T4 340 

0066 


tr (UlX .EO, WT(?,n |6P‘. 'ILX ,GT, WT(2,n) G0 TP 

0369 


G0 T'* 340 

0070 

3lC 

ir {LPX ,EO, WT(4,n ,PR. L*^X ,LT, i«IT(4,nj G0 TP 

0071 


r.0 rr 34n 

0072 

320 

IF (I'L'' .eO, WT(3,n .OR. ULY '.GT, *iT|3,l)> 60 T0 

0073 


r,z ji' 340 

0074 

33C 

IF (LB'^ .EO, wT<5,n ,CP’. LAY ,LT, WT<5,m G0 Tp 

0075 

34C 

C 

C3NTlrjUE 

0076 

C 

IF { JlX ,feO. IT(1) ,5IR, ULX .GT. IT(D) Q0 TP 350 

0C77 


r.7 4000 

0078 

350 

IF (LpX ,EQ, (TCO lRY '.LT, IT(3)J 60 T0 S60 

0079 


G0 TC 4000 

0060 

3f0 

IF t'JLY .EO, 1T(?) ,2R. mLY ‘.GT, IT(2)) Q0 T0 370 

0061 


aa r? *ooo 

0062 

370 

IF (LPV jEO, IT<4) ,0R, lRy »LT, 1T(4)) Q0 T0 380 

0063 

C 

G0 Tl! 4000 

0064 

C 

350 

PEAO <FR1) XYcaHr. 

0065 


60 T2 405 

0066 

L 

390 

64 

W 

~READ TFfifTn XYCPRC 

0067 

c 

405 

CL6SE lU'ilTBfRl.TlSPCSEt'SAVP* J 

0066 

c 

CL6SR IUM1T«PR2,OISP0SE!*SAVG'.) 

0069 


00 460 ial,4ia,2 

0090 


X ■ XyC0RD(I) 


r0f»T9AN 1 V*PlUS 

FINO0T.FTN 

0091 


V02.04 12146131 29«AU6*77 

ZlIi?JJCSS/W« 

V « XyC0ROU*1) 

IF (X tLT. LRX .0R. X .EQ, URX) 60 T0 410 
60 T9 400 

IF (X ,6T, ULX ,0R. X '.E6i ULX) 60 T0 420 

60 Tfl 400 

IL <X__*1J.-LRX ,aR, Y.ggflr.L&yA Ji0_T0 430 
60 T« 400 

ir (X |6T, ULV ,a«, Y ,66, ULV) 60 T0 440 
60 TP* 400 
D0TnS{D) b 1/2*1 

0 « n ♦ 1 

C0NTIN«£ - 

IF (D .GT, 1) Gt' T0 498 
C0NT1NU6 

IF <n .E6, 1) T0 400n 


D _s n • 1 

IF (D .60, 1) GO T0 5000 

IDL'<i • <T5/10) * 5 

C*IL hSEkPP (•!) 

cau nSEt^penoLM 

-JPITE C6,510) (5r«TNS(P,!*l»n) 

Fe=Jf>tAT (IHP,’ wLLTiPLE D?T8 FBUNO WITHIN THE CURS0R' 
/.«10(2X,I3)>) 

WRIT? (6,5?0) 

F^'>?'AT SfeLtCT 0N6 0F T^E AB0VE O0TS >»» 

TALL 0UTPUT (7) 

‘■'eAi) (6,200) IMP 'T 
CAI,L FR0VT (INPUT, 74) 

IF (InPUT(I) ,60. »X*) T,^ T7 9999 
IF (1nPuT( 1) ,FQ'. *t!») '•3 TF 10 

IP a 0 

TALL INTFK (IP.I .,PUT.74,v> 

DP 5S0 lal.D 

IF (Pktns(i) ,eu. m) return 
CALL MS6KP6 (2) 

•JRlTf (6,530) 

F0«mAT (IHO, ‘SELECTED Dr"T IS nBT A MULTIPLE ORT*) 
00 TD 499 


N a D0T\«?(D) 


f0RTRAN 

iv«plus 

V02-04 12146131 2««AUQ«77 

PA&E 9 

riNQ}!?* 

UH. 

/TBlBLfCKS/WR 


0130 

4000 

CALL mSEKPO (2) 


0131 


WRITE <6.900) 


0132 

900 

repMAT <iN 0 i* selected dpt net reUNO«) 


0133 


CL«>SE <UNlT«rRl,p|8PJ»S6f*8*VS') 


0134 


CLPSE <U»JITcrR2.niSPPSE««SAVE') 


0135 


oa Jli« 29_ 


0136 

c 

c 

c 

lOOC 

lOL^ ■ (NU)<O0T/1O) .♦ 9 


0137 


CALL HSEKPr, <10Lv) 


0130 


l£.t>ll>*OgT .Efl..O '.BRi i^L-f<D2T.'UT. 0) JiE TB 

3000 

01J9 


WRITE (6,900) (C'/TARV(1|.I«1,NUA'O0T) 


0140 

900 

Fee*'.*! (iHO.* current OBT SElECTIBN', 



1 

r 

/.(10<2)(.|3))) 


0141 

V 

WRITE <6,9?0) 


0142 

w 

r 

CALL 0UTRUT(7) 


0143 


OE*D (6,200) input 


0144 


call F<’0^T (INPUT. 74) 


0145 


IF (I'JPUT(I) ,?C’. *X') .50 TP 9999 


0146 

r 

lF_U5lPliT(l) ,Ei. '8') C2 TS U 


0147 


IP • 0 


0143 


CALL INTFF (IP,IvPlJT,/4, 


0149 


PB 910 1-1.NOMO0T 


0110 

9tO 

IF (P2TARV(1) .60, N) RcTUR'i 


0151 


CALU-tiSEKP*; (2> 


0152 


.RITE (6,920) 


0153 

920 

format dbO, • SELECTED n0T iS ^0T IR CURRENT 

SElECTIBN') 

0154 

C 

G0 Tf- tOOO 


015*) 

C 

3nu'! 

call wSEkpG (4) 


0156 


'.'■RITE <6,3100) 


0157 

310'' 

erRkaT (IHO,* Vfc jiUTS IN CURRENT SELECTI0N*) 


0156 

t; 

00 tc 10 


0159 

C 

2000 

CAU. h5Ekp(} (2) 


0160 


write (6,2100) 


0161 

2100 

r 

r0RMAT<//,*$ INP.jT D0T grid mumeER >«) 


0162 

V 

call PUTPUT(7) 


0163 


«E*n l6|2200) INPUT 


0164 

2200 

r 

FBRhAT (74A1) 


0165' 


CALL FRB-iT (INPUT, 74) 


0166 


IF (KPUT(l) ,fO. *X*) '-,0 T-* 9999 


0167 

r 

IF (t*PUT(l) ,10. 'D') 08 Tffl 10 


0168 


ipTo' 

- 

0169 


CALL I^TEF (IP,lf'PUT,74,v) 







A 


»A0E 6 


rgRTRAtJ IV«PUU$ V0?«04 12146131 29*AUQ«77 

P|NDt(»T.FTN /TAtBi aCKS/ KR 

0170 If <N «LT, 1 .2R| .or, KOVTS) 60 T0 2000 

C 

0171 9000 R6t■uR^ 

0172 ENt 





AM 
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RBPLY-CR 
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13.3 SUBBODTIMB P«)CBD ! 


HrffRTRAN IV-RLOS V 02*04 _ 29*AUfi«7J 

PR0CEO 

,ftn 

/TR|RL0CKS/mR 

0001 

C 

SURROuTInE PRRCEt' 

0002 

C 

t . 

IHPLtClT INTEGER (4*2) 

0003 

C 

C 

r 

iyTe lMPliT(74) 

0004 

u 

C 

-RlTi 14*100 > 

0005 

100 

f* 

format (IKP.'J. Tl PRilCESD HIT "CR" >*l 

0006 


CAIl’bUTPUT (7» 

0007 


PE*a <4.?30) I^P'jT 

0009 

200 

FBOmAT (7441) 

0009 . 



0010 


IrNO 


mi, I 


w 










13.3 SOBROOTIWE PROCED 

A flow chart for this subroutine is not available. 




0 / 






13.4 SOBBOUTIHB D0TIA8 


DITLAB.PTN /Tl»lBL>CK8/Uft 

OOttl. SUBWBUT1N6 DBTLAS (EKFLiM) 


cccccccccccccccccccccccc^cccccccccccccccecccceccccecccccccccccccccc 


IfitU NE 


ccccccccccccccccccccccccccccccnccccccccccccccccccccccccccccccccccccc 


inPUClT lNT6ttFR U-i) 


byte INPUT(74) 

BlTg DEPUTCaitftlRUABdO.PUAPaO) 
byte H 0 LT>( 3 ) 


INCL'JDB •SYIC300.33CAhSC''N«5n.INC» 

INCLliCE 1SV|C300|35 C»MSPaRam, IvC* 

PAB/kMgTEB MAXCAT»6f'»^'AySUB«6*'i ;'AXCmN«4,NPI Y«1PA,NL1N*117»MAXFUJ»50 
liKAXVBlliNOMTSBaOP.CLSi'lP^XO.DSSKlPAlO.MAxACDBAiMAXACCBAi 
2N0SPW'j«6iNPDTWO«1O 

EOUIVaLE^^CE (Cl.ACnATE)i (Cr,!SFS). (CS>PFJ.A6 )j(C4|TX1)i(CS»DISKID) 
TnTEGEB Cl(469)fC2C2S6)|C3f7i>,C4(34iniC5(629) 


TnTEGEB Ci(469 ) , C2 C 2S6 ) I C3 f 7 i > , C4 ( 344) I C5 ( 629 ) 

integer ACDATE.SUdCAT.SJRP-P.CATKMiCATTH 
BYTE CBNVECiMeCHAN.NP$U5tD?TCATiDeTCLU 

C0MMP:j/c3in/4COATE{2,*iAXACC)iCMNVEC<MAXCMN,MAXACC),N®CMAN,N0SUa. 
lSU‘»CAT(MAXSU‘»)iSUb'»eP(«AXS’B)»CATK(0T(NAXCAT)«CATTH<M4XCAT),NPDPi 
2NgR'U*N^TM,DBtCAtrNnf tS)'i5EfeLU<NDeT5> 

Integer ADATPS«SUNA2.Af AlSTiPUnDAy.DSTDAYi'PDATEltTPATEi 
Integer PDATE2, TPATfe2,PDATP3iTnATE3i catnap, DISK|OiPAN09H#6R|0 

Byte nEL^LG,v'0ACO,S^^LGH,S"N6L,^START,NTypBi,ALRT^LPB 

BYT E PCTCT. P CTCTP,V AR,VARl8.DtA pfeLi TYPE _ . 

"CiWMeN/CBM2/lSBG,DF L^'GV *5 0 a C C » TTJAT E ST 2 , M A X A^D),8PIL 6^ < H ArACD ) » 
lS0NEU*'AXAC0>iSUNA?(“AXAf;0),IPPA7E(2)i4NALST(5),rL0DAY(2I» 
'2P0TDAY(?i,NStART,NTYPfe) ,PDATEl(2),T0ATElt2),P0AtB2(2>»T0ATE2C2)i 
3RD ATE3(2),TDATB3C2 )#a'0CAT, catnap (paXCAT),ALP(HAXCAT)iALPB# 

4 PCtCT(MAYCAT),PCtCT0,VAR(MAXCAT),VARfl 


JntEGER fcFLAQl,tPLAG? 7 fFUA* 3 .'fFlA 54 ,ErLA 0 S,UPUA 0 l,uPl.AG 2 iUPLA 03 , 
1UFLAG4 

integer PFLAQ,OSKfi»:T 

C0PHPN/C0M)/PFLAQ#nSi**^NT.ErLAGliEFLAQ2,EFLAQ3,EFLAQ4iEFLAG9,UFLAQl 

l,UFLAG2.UFlAG3.UFLAG4,NE'4LAb(PAXS0B) 

integer '^Xi ,TYi,TX?,TY2 , AC« 1 SP , 6 ,1 , DT W INO,D0 TAR“Y , GmI N, QM AX', fUL 
integer SPv|NO,CLAi.NO,CLl'W'-D 

C0MPPN/CBN4/TXi,TYi,TX2,TY9,IXl,!Yi,!X2,iY2,ACOlSP(2),lll(4t,Q<4), 


FtRTRAN 

IV-PLUS V02.04 12147135 29«AUG«77 

page 2 

OeTLAfi.tlN_ . 

/leifiLiCKs/Ka. - . 



# 


ia<4),oTulNn(5,N0OTt),SPWI>O(5.N08PWO), 

|HwlN0(4)i'NUMDaTi 


• 


2Oe7APY(\0aTS)(SHirv.6'«AX|PbL(2i7}«CLAWND(a)«CLUWND(B) 

0029 

• 


CPMMPv/cOM5/DISKU-,RANran(-'P3TS),GPIB<NOflTS)tDLA9EL<NO07$) 


• 

C 

c 

UYPe<.\iDzTSJ*PeCL?'C 

* 

0026 


r 

c 

c 

FCUIVaUEnCP (HOLl;(l).CATH)t(PLAb(i:tPLABl) 

0027 


r 

. HAlA_DtELT(l).CErLT(2)/* ’i* •/ 


002n 



CATa wPl9<1),H7'LH?>/’W«, * •/ 


0029 


r 

C 

C 

r 

OATa bICLAP/'w*,» S' 'i' '»* S' '»• 

•»» S' V 

0031 


rr 1 s»i.io 


0331 


1 

pLA«n) « • • 


0032 



IF ("'lASFLCN) .*:'S 0) 'i 3!? 2 


0033 



IF <nLA8PL(N) .C'', -1) '»5 7? 3 


0334 



IF {"LAdELIN) .cO, -2) G2 Ti* 4 


0035 



pl*m 1 • CA*TN4M ( 'l.A»;EL(Nn 


O03.'» 



7,3 T.' t 


003; 


2 

PLAk<1) « 'U* 


0C3-, 



pLAP(2* * 


093'J 



PL4fif3> a 'U* 


OO-IC 



PLAu(4> a 'A' 


0041 



PLAh(5> * *«• 


0C4? 



FL*e(6' a •£• 


0043 



»LAiI7) a *L* 


0044 



a •«:' 


004', 



(7) a *0* 


0049 

0047 

C04.: 


i 

■3'^ T-’ 6 
pLA‘-< 2) a *?i* 
■>£ T' 5 

0047 


4> 

OL»B<2> a *U' 


0050 


5 

C 

PLAOCi) a »P' 


OD‘^1 


C 

6 

k-. 

r 

c 

rXF^ a 0 


005? 


CALL HSgKHC. (4) 


0C53 



-4ITP (6|100) •• »PLAd»0l5LA5 


0054 


ICO 

F?*’--.«AT (IHO,* PatVIUuS LaWFL FjiH OAT 

NUmREP '«!3.' IS '« 



r 

1 10*li/l'5 OEFAULT UAPfcL IS '.lOAli' 

>') 

0055 


r 

call 0UTPUT (7) 


0056 



l*.20Cl. INPi'T 


no57 


200 

PS'^kAT (74A1) 


005? 



CALL FR?''T Ui4PUT|74) 












N0CAT • K0CAT ♦ 1 


RETU9M 


'V 





FBRTHAf' 

IV-PlUS 

VOP *04 l2t47t3S rV«AijQ»77 PAQi 4 

oeTLAt., 

FT^| 

C 

/TP|PlKCKS/^R 

0097 

C 

600 

CALL MSgKPS (41 

0099 


><RlTP <6.eiO> N 

0C99 

6l u 
C 

rj5R-f.T <//.'« L#3€L f 'R 0?T KtJMREP CV)E8/lN)i >*1 

01 Ou 

CALL J'UTPUT (7) 

0101. 


B6*n (6,?0PJ If.'PuT 

0102 


Call FP0'iT (!n<»:jT»74) 

OlOj 


!r (I*PUT(D ,6j. ‘X') -a T? 9999 

0104 


!T (I^PUTU) ,P0. -.a T? IC 

01C3 


ir (IlPuT(I) .EQ. • <’) "a T"? IC ORIGINAL PAGE IS 

OlOb 


ir (I ,PUT(1) .•'fc, ’V') T* 600 OP POOR QUALITY 

0J07 


>ir.LAo(n * 'u* 

oio». 


-rL*’9<2) s • 

0109 


PULAfat3) * ’L* 

Oil.? 


“I^LARCA) * 'A* 

oiu 


?:^L*3‘5> » ’o' 

0112 


* ‘A* 

0113 


«I»(.Ao<7) • ‘L* 

0114 


•• j (.i_ til' ( S ) s *L' 

011b 


'iIf'LA«<9) * *D‘ 

01l#« 


IL * 2 

011/ 

r 

f?« T ■ 32 r: 

Oils 

r 

f;ALL ^Sc-'PO (4) 

OUT 


to, lie.') 

Cl?v 


MAVJ- .i- CA-'g';Jt.lFS CANNOT r»e feXCEE06O’) 

0121 


••'L" . 

0122 


':Xf!. e 1 

0123 

c 

r 

c 

r 

1 1- 

0124 
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~13.5 SUflRgOmiE H8BKPG 


w rgRTBAN 1V«PLUS V02«»Jj llliflJlf— •AUfisJU 1 

HSEKPG.FTN /TR|BL0CKS/NR 

0001 _lUiB»ijTlwl_MS6KEG. ISCSHLCI _ 

C 

C ■ ' ' ' ' 

._C ■ 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c _ 

c 

C Tk) HeuSE KEEP the terminal SCREEN 

c 

cccccccccccccccccccccccccccccccccFccc^cccccccccccecccci^ccc 

•* 

%J ... 

c 

c 

c 


0002 

C 

C 

implicit integer U-2) 

O0C3 

C 

c 

data SCR''CT/0/ 

0004 

U 

c 

IF (ScRNLC iEO; •!) GP T0 100 

0005 


SCPnCT « 8CRNCT ♦ SCPnLC 

0006 


IF (SC«NCT iLT* 25J RET.;RN 

0007 

lOG 

call iHUTPUT (27, 12) 

0008 


ICHnCT. * 0 . 

0009 


RBTijRn 

OCJO 


END 


. ORIGIN AT. PAGE IS 
OF PU)R QUAUrV 



13.5 SUBROUTIME HSEKPG 

A flow chart for this subroutine is not available. 






13.6 SOBROUTIKE BLOWUP 


tWMTWAN m.PLUS lillBlM- . 29ftAU&mZ2 PAGE 1 

•ifWUPtPTN /TP|PL0CK$/WR 

0001 SllftiEuTXNB 8LEWUP lEXfU - - 

C 

c : 

cccccccccccccccccccccccccccccccccccccccccccccccccceccccccccccceccc 

~r. 

C CIP Image IREA BL8WUP P^UTINE . 

c 


0002 


0003 


0004 

000 $ 

0006 


0007 

0006 

00C9 

0010 

0011 


0012 

0013 

0014 
001 $ 
0016 


0017 

Odd 

0019 


002C 

0021 

0022 


c . . . 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c ' 

c 

c 

IMPLICIT IWTEQEP CA-«?) 

c 

* g I NPUT { 74 J , TCUP ( 512 ) ,^Or ( 512 ) 

r 

c 

c 

include INC* 

** *SYIC3C0 3 3 C A?1 t * 

• PARAMETEP HAXCAT<i6n»MAXSUEj«6C»MAXCHN«4,NPix«l96|NLlN»ll7#MAXrLO«50 

• 1iHAXV,1i,n5GTS«20$.DL5*<IP«10.0SSkIp»10,MAXAC'?«6,MAXACC«4i 

• 2:'«SSP'‘C*6*N:’'DTWr*l 0 

• PQUIV/iLENCP <Cl*AC')ATl:)i ISPCi)# (CSiPPLAG). <C4iTXlIi <C9#D1SKID» 

• INTEGER Ci(469),r2<2$6)|C3(7l>,t4{344),C5(629) 

• C* 

• integer ACDATE.SUECAT.SUBP <P,CaTkm»CATTH 

• RYTE C“HV6Ci*'0CHAN,r»;'SU0,O.*TCA'*'»DeTCLU 

• C««MP\/C0Ml/ACOAtE(2.«AXACC)tCM\VEC(MAXCHN.MAXACC),NOCMAN»N0SU9» 

• iSgPCAT(HAX!5U9)tSUPPitP(MAXS'l8»»CATKMT(MAXCAT),CATTH<MAXCAT),N0OP. 

• 2'lM’’'J..\‘?TM*D0TC*T{Kr.k'-TS>|O0TCLL(vOeTS) 

• c# _ 

• " “ INTEGER A0ATes’,SUNA2.ANALST,fL0DAY.DPTDAV,PDATEl»TnATEl 

• INTEGER PD4TP2,TriATE?|PDATE3iTr.ATE3#CATNAM,0ISKl0|RANDPM»GRin 

• pYTE del^l‘g#nbacc.s«ilgp.S';nel,^sTaRt,vtvpei,alPiAlP* 

• RYTE PCTCT|PCTCT«|VAS,VAR2,nLA»feLiTYPE 

• Ci9MHPN/cPH2/tU6«DPLrLG|N2ACn,AUATES(2,NAXACt>)«S0tL6P<MAXACD)* 

• lSi^i:JB!.('*A*ACJIii.£liA'AiLl^AMCD),lM''AT6(2>iAN4LST{flif^MAY(?)| 

• 2T'0TDAY(2).»'START,NTyp£i,PUATPl(2),TCATEK2)|PDAT62(2>*TDATE2(2), 

• 3PDATP3(2),TDATE3(2)i^?CAT,CATna>'(kaXCAT),ALP<mAXCAT)#ALP0» 

• 4 PCTCT<MAXCAT)»PCTCte.VAR(MAXCAT),VARf 

• c# 

• InTEGE’^ ErLA61,ErLAG2.PrLAr,3«ErLAG4|ErLA6S.UPLAGl«urUA62«UrLAG3. 

• iyEkAO.4 

• INTEGrP P^LA6,PSK^1^T 

• CBMM'"'VC*'M3/PFLA$,PSKMNT,ErLAGl »ErL4G2,EFLA63|BrL4Q4»BPLAC9|UFLAGl 

• l«urLAG2.UFLA63iUrLA64.NE^^LAB(HAXSL'R) 

• C» 

• INT£?£R TXI,TY1,TX?*TY2, AC''lSP,ti,b,DTWlNO,D0TAPY|6MlN,GMAX,FUL 

• lNT£g£3.JeiI^.GkA^iDi CL’JfLfl . 

• Gg*'M'»\/CF64/TXl,TVi ,TX2 ,TY?,IXi »IY1. tX2,|Y2.ACDISP(2)» IU(4),G(4), 

• lP(4),;:TKlNO(5»N0OTt.C)|SPwlvD(5,N0SPWD),IMmND(4)|NUMD0T, 

• 2n0TARY(ND0TS)*GMTN.GMAy|FUL(2»7).CLAWND(8)iCLUUND<8} 


ORIGINAL PAGE It 
OF POOR QUALITY 


PBRTRan IvPlUS V02-C4 12I4«|?5 ?9.*il6*77 PA06 2 

BL9»iUPiFTN ./IPl^UJCltS/'^R 

0023 • C(i;MM*Ni/C®N9/OISK!O,KANi!i0*'{f D?TS> t6RlC(ND«TS)*OLA8Eu(ND0TS) I 

• lTYPE(N'JeTS)»R6CLrC 


iIf^5^SIa' XVINC5 )»XYs?UTC5) 


sXfL * 0 


CaLu hSE^Pf. f?) 

Riff- (6,mo) 

(1.H0,' PU'CP rut'S •f' AR0 UMj ThF n^T F0» BL3WUP,»| 

/,'% AiJJ 1ST F/R <;I7t A D "CK" wHGN RFACY >♦) 


Call •^tput ( 7) 

-»Eir (t#PC0) pP'T 
fl’-’./T (74A1) 


'"Ai.L FPi?* T < I:mPlT,7<) 
IF n-^>^T(li •<») 


;/ T- 9999 


IF (I-FUTd) •■P) -rTL^', 

IF (I 'PUT(J) . * •) 7 ' ; 


. A' I t^K 

CAl-L -‘IT 

i.LXI « XrpC^) - ('•( <Yt Ai?3) ) 

-L Yl X XVP (4) - ^:»( XYPifS} ) 

l.UVl X XVIM?) ♦ r.4(;<YI'WJn ♦ 

LMVi , XVP'(4) ♦ ♦ 


xyrur(i) x u 
vy:'ijT( 2) X X('p'p») 
<WiiT( 3 ) X 1 

Yy-(.' 7 ( 4 ) X XYp(«-.) 
XY .)t( 5 ) X 1 

“Alt T^K (XY ‘vlT) 
'•41L <1^17 


C4'-L pSEyPC (6i 

••RITh (6i3f’D) 

c. 5P-;AT FL'Lf TH= 


THE UPPfc'* LEFT hands 


rSRTRAN 

■ftLflMUPi 


IV 

£lil 


•PLUS V0S.04 

/TPtBLPCKS/mi 


12148129 28«AU6«77 


PA06 3 


0092 

.■■■■11138 
0094 
_ 0095 
0096 


0057 

0C5a 


0099 

0060 

OO&l. 

0062 

0063 

0064 
0069 
0066 
0067 

0069 

0069 


0070 

0071 

0072 

0 C 73 


0079 

OOBO 

0061 

0012 

0 063 

0064 


0069 

0066 

0167 

0068 

0069 



THE DSStPEO LflCATlflN PSA THEt* 

■ " hMEM_SlAOY;_.X*). 


-CALL lUTPUT 1 71 . 
RSAn (A.aOfll IWPUT 


IF 

■It 


(InPUT(I) 

jijiPmii 


IF (InPUT(I) 


c 

c 


c 

c 


• EQ. 

■^. 

• Ml;'. 


•X») 
t A« 


♦) 


30 

■Ofl 

30 


T6 

Te 

T 6 


9999 

11 

20 


CALL iR K. IXYJJill- 


CALL wait 


ULX 0 f xrmtii 

ULVe « XYIN14) 

■ CLRX l > utxn»2 ♦ J. ♦. WLX0. 

LRY0 ■ (LRYI • UlY!)»2 ♦ I ♦ ULY6 


C 

r 


XY?uT<1) • 0 
XY5uT(2) • (ULX0 
XY6u7(3) ■ (LRX6 
1 U LY0 

XYJ^uT(5) ■ (LRYT) 

Call IWK 1XY60T) 
CALL •^‘IT 


LRXR • 

ULX6 • 
LPt** • 
^JLY*^ - 


2>/2 

?)/4 

2)72 

?)/4 


30 

4C0 


CALL mSEKPG ( 1 ) 

>JRIT*: ( 6 | 400 ) 

F 0 RMAT </» ’$ PRarEFD 

CALL ZUTPUT ( 7 ) 


(Y)cs/<m )9 >•) 


0074 

■ C 

RE*r ( 6 , 200 ) 

iMPtiT 


-- 

... . 

0075 


IF (I.\PUT( 1 ) 

,fq; »x*) 

36 

T? 

9999 

0076 


IF (InPUT(I) 

.EQ. * 0 M 

GB 

T 6 

19 

0077 


IF (InPUT(I) 

,PO', »(^») 

30 

TP 

19 

0076 

c . 

IF (I'JPUTCl) 

,M 6 . ’Y') 

r ,0 

T 6 

so 


06 500 l»l,N 0 OTi«(»' 

500 IF (PT«*lMD<l»n .EO« 0 ) O'* T 0 600 

Call msekpg (2) 

write ( 6 . 5 i 0 ) 

910 FgOMAT <1H0«* N8 W INOgV TAB LE SP aCE AVAUARJJM 


c 

c 


return 


600 DTWiND<liI> • 1 

CTWIND(2.|) ■ ULV0 

D TW!»'n<3. 

0 TUIMD( 4 « 1 ) ■ LNX 0 
- 0 TwiND< 5 xU-,f LRYf 





-'A 

? 




.US V0?-04 
_ _/T?llL‘'CKSyW'» 


1?I4RI25 ?9.AI!0»77 


IL'Ja 4 ULYI - 1 
XT«x • LPXP • 2 
YT^V « LRYP • 6 
ST*X s -UU? ♦ 2 

rr 7f'o iln»uly?>»yt^v,2 
IL^A s ILNA ♦ 1 

r? 7t'0 C.mL«1,5 

lu » W: 

CAU. »Rv (THI., ?L^ A,’PUr) 

CAlL MT 

T2 675 K«1,2 
tall (CHL. lL'*»TtfUn 

CAtL ‘*IY 
n. a gLXI 

T£ 6^0 laSTXV.YT- X,2 
THUrd) = -F(lL> 
Tai'r<I*l) a "■ilTclD 
IL a IL ♦ 1 

CAU T ^V (CHL , If'’# Ti-ijr ) 

call ait 

IL‘ a IL^' ♦ 1 
Ci Tl'.Jt 


r-XFL_a 1 

S {; T i, r ,■ 

















NBZTHBR 


Y or N 



PUT BLOWUP 
AREA 

COORDINATES 
INTO TABLE 


N 


4 










'^READ A CHANNEL' 
,(1-5) OP OOTPl 
y,AREA (LINE 
1 OR 2) 


POT BLOWUP 
LINE INTO 
OUTPUT LINE 
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ORIGINAL PAGE IS 

• - OP POOR QUALITY 

13.7 SUBROUTINE GTYPE I 


MfTNTRAN 1V»PLUS Vfi2»0* jJ{J40l54 ?9*AUG»77 _ Pj|QE I 

OTVPE.Hn /TS'l^Li^CKS/rP 

COOl r»yeRt^L7I‘'fe UTYPfc (PXFL) 

c 

c 

ccccccccccpc^cccccccrcrcrcrc'ccrc^'cncccccrcccccccccccccccccccccccccccc 

c . . . _ 

c 

C SRi'ijP Di«T TVP6 KAVnuiN^‘ oei-'7lNe 

r. 

c 

CC'JCrCPCPCCcCCCCrcCCf'CPCCCr.^PCCCCCCCCuCCCCnCCCCCCCCCCCCCCCCCCCCCCtCCR 

r 

c 

c 

c 

00C2 implicit P'ThCFh (A-i*) 

r. 
r. 

?YTi: !'iP)T(7l) 



00^4 

000=1 

0006 


00 D 7 

ocoi 

OOOQ 

031) 

con 


0912 

0913 
0014 
OOlli 
0C16 


0017 

091.1 

0019 


OC?:' 

0371 

90?2 


t"'’!. •;*: *SV5 r3''c,31CA iSC , 1 *.'C ♦ 

Innui rr' ‘SYtCJ I 

' ^AX^;XTa6 , 4VS'-)«6'» ^XC'Ai\'«4 . NP 1 X«i. 96 , Mu | tx*l 17 ♦ MiXFUTt^O 
1, i4X '#1 1» N^k.-.TSa^'Vv, : '.S<tP«n, u ja*<Io*l0i'1AXAC'>«6i**AXACCt4» 

2MSP i-i 'uTv,,m c 

PwL ^'^L^Mcs T-), (C , IS'- j), (C3,PFLAG)i (C4iTXl>» (C5,niSKtO) 

I Cl(4f9),C?(«.‘>6) ,':3(7l) ,C4( !4A),C9(A29) 

AC'ATt.S'll-."‘T,'-,J .P -P,Cf U\T»CATTH 
■>xTe c-.vgri'-'of.Mt.,' si’.i, i; •T':a»» n/TCu'j 

r„ .M- /r lMt/*C'’ATL(r, 4X •.C'*)iC '/trC ( •‘AXCW\. H*X ACC ) ,N0CMAM» M0SUP. 
1'^oO£AT ( iAX«ij-) , S'.'L,o. M* AX-i^ -i) »..4 Tk-.'T('<4XCaT),CaTTH(MAXCAT)*N«D‘’» 

2 «lrjMw# r,;^Tl, U (.V V TS) ♦"iTCL L('i02TS5 

A c A T = S , ^ » ',ST , PL’^L # Y , D''T*'A V , POaTFI i TOATEi 

• P1)4TC2,T''aT. 7 ,F'J‘.r 3, T'ATtl,CATRAM,D!SKlO»BAR07M#fiPI0 
),»;.■ ■ .= L, •?T4RT»*'TVPEl,ALP»Al.P0 

i»vT6 J'-TrT,PrT.*T:^» ■'/ >■,' 4 • i-- , PL A ^cu » TVPfe 

’V^/ IS" G.C'^uf L » t C' . ;L aT(^S(2,MAXACP) »S'*II.6P(*<AXAC0) , 
l‘?j*-i6L( 'iXAr r. ‘ASari)), I . '4Tfc{2) , analSTIS ) i FtODAY (2 ) » 

2[)OfrAY(zl, STapt,. 1 i’'.T-l'4),TDAT':i(2>,PDAT62(2>»T0AT52<2>. 

JPPATS3(2’ • Ti.ATr3(2),' *rAT, 'aT ,/>'(«4XCAT),4LP(HAXCAT)iALP«* 

4 0.;TCT(M*xCAn,'9CTCTL', W4f<(MAXCAT),VAR'» 

I ;TC'‘,p- cri A*l,trL4'j^>,=PLAC3,tMwAG4,f;Fl.AG5,'JPLA6l» jFuAG2»UFLAG1« 

1"F|.aG4 

I-tTEftp-, Pn.A'S.PSX- 't 

*' S*'''* T,c"L '.w‘ »cf uAG2i6FLAGS#€FLAG4ieFLA6S,UFLA6l 

l*uFuA:,'»,wn.AG3,yru4G4,* fe -iLloI' '.XSt')) 

If Tpf.P' Txl.TV* ^TX?, TY2, *.C ' 1 5P , U , p , DT4 1 NO, *)? TAOY, GmI N, GMAX, FUL 
I%TcC.^v SO I I'D, a A 

CAM t ’ /:.’M4/Txi , TV , TX?,TV', r<l, fvi , tX2, i VO, AC0ISP(2)# I I1(A),G(4), 
l'-'(4), ;.T .Isn(N, ),SP I 9(i>,l'*S®-P)i I**«iINO(4),N'JRO0T, 

2P*<TA'>y ( vr»TS), HI\,i,^AX,rj._(?,7),CLA‘»'‘''C<9),CLUWN0(#J 


^"7 












1 




i- 


t 'f 

^ ‘.» • L- 




! 


PAK 2 


rtRTRAN 1 V«PlUS V02«04 l2l49l94 29*AU2«77 

■AT.YR.BiLTN aftl6LgfiK&ZMa n—ra— 

0023 • OeMH9N/etH9/D 1 8K 1 0 « R ANO0M ( ^OfTS ) « OR 1 0 ( «lO0TS } < DLAIEL < MOOTS ) « 



C 

c . 


• 


c 

_fi 



c 

c_ _ 

0024 

c_ 

exfl 

• 0 

.Q02i.... 

c 

-10 

CALL 

ilSBKPB <61 


0026 

0027 


WAITE <6il00) 

100 rafHAjiiMa**. INPUT the number for piast labelled dbts ti be */ 

1 •• SET TA TYPE 1 FA0H CUAARNt DKT SELECTION. V« >S(THE AEKAtNINQ* 

2 j !_ll«lS jkRE. AUTOMATICALLY SET TB TYPE 21 >•) 



V w a . 

0029 

C 

jeWLT.yi — A-ALi — . , 

read ( 6|200 ) input 


0030 

200 

F0 RmAT ( 74A1J 

i 

0031 


CALL FR0NT (INPUTi74) 


0032 


IF (InPUT(I) , 60, »6M RETURN 


0093 

r 

_ IE. aNPumi *EQ, »X'i_ JSB Te, 9191.. 

£ 

0094 

u 

IP « a . 


0035 


CALL INTFF <IP,IvPUT.74,sgP) 


0036 

r 

JF (NuM .LT, 1 '.2R, NUi^ .GTi 209) 80 T0 10 

i 

0C97 

V 

NUMfl ■ NUMD0T 


0038 


IF (NijM .6T, NUMO0T) QU T3 300 


0039 


80 500 


0040 

300 

CALL mSEKPG ( 2) 


0041 


WRITE (6*400 ) num 

r 

0042 

‘400 

F0RMAT <1H0,I3,» IR “0 PE THAm THE NUMBER 0F SELECTED 
1 ’DPTSt) 

r 

0043 

C 

Gil T0 10 


• • 

C 

c 



0044 

. 900 

i • 1 ■■ ■ 


0045 

lifi. 

DUI « D0 TaRY( 1) 


0346 


IF (DlA 05L<OUI) ,GT, 0) 80 r^ 59 O 

1 

0047 

570 

N'UMJ) 1 NUMD • 1 

i 

0048 


IF (VuMo ,EO, r) r,0 f‘0 ROOD 


0949 


1 '.I t.l 

i 

0050 


G0 T« 910 

X 

0091 

SiSL 

TYPE(DUI) ■ 1 , . 


0092 

0953 

0054 


0095 

0056 

0097 

0098 


C 

•600 


MTVPEI ■ NTYPEl ♦ 1 

NUH ■ NUM • 1 

IF <NuN .GT,' 0) OF T0 920 


NUWn I NUMD - 1 
IL..a^a N ,0-4 £ J.-CL G3.Tl9fl0fl. 


,_620 


I • I ♦ 1 
DUl * QgTARY(H 


ss- 










mm 


rORTPAN IV-PI US V0?«34 


<5TYPP,rT.s 

0059 

0060 
0061 
0062 

C 

c 

c 

0C63 9ft0P 
0C64 

c 

c 

o:s6 

0067 


:p OLiapLcmi' 
ir (Type(Dui) , 
TVPlftDUl) ■ 2 
50 T-’ 600 


JFLA53 « 1 

■^feTij'^w 


HXFl * \ 

PETo«N 

P\P 


12M9I94 ?9-4UG*77 

.LT. 1) GP T2 600 
fell i> NTVPEI • mTVPEI • 1 
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nnia 


Or 




'/\ 
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TR4jEcT«RY PL0T SUPRRUT|\6 


ccccecccecccceccccecccececccccccccccccccc C CCCCCcccccccMc cCMCCcqgcccc 

c 

c 

c 
c 
c 




0003 

0004 
OOP5 


ooo<^ 

0007 

0006 


0009 

ooto 

0011 

0012 

0013 


0014 

0015 

0016 

0017 

0018 


C 

c 


IMPLICIT IMTgQgR (A«Z) 


'0YTk |NPuT(74),APF.WUH«R'iC?),XceRiYC0RiSCALEFi8CALlCl6) 
PYTe SCAi.ER( 4 )| I^ur( 5 ^),reL 0 PI 7 ),CRLeRS( 4 ^) 
byte C0Rni(6),C8'PD?<6),C'RDA<42) 


0019 

0020 
0921 


0022 

0023 


include 'SYIC3OO,33CAmSC^M0N.INC' 

INCLUDE- *SYI CSno.SlCAMSPAR/M, InC» 


PARA^^ETeR “AVCAT*6f'i ’^AXSUaad0#»‘AYCMN«4,NPl Y«196 i 
liM4XVsll*NO0tSs2O9.OLSKlP«lO|DSSK|PBlO,MAXACO«6« 

«« M ^ M I I M M ^ #4 


l96|NLlN*ll7»MAXrLD*50 


C* 


C« 


C« 


MAXACC«4» 

gMBSP WDaftiN^DTWPilO 

equivalence (CliACnATE)i (CPt IS fST* (CS^PFLAOi (C 4«Txl>« (C9«9ISKI0) 
integer Ci(469).C2(256)|C3(71).C4(34B)«CS(«29) 

integer ACnATE,SUBCAT,SUPP‘^P»CATKNT#CATTH 
BYTE CUMVEC»NPCH*N,NPSUB*D'*teATiOetCLU 

C2MM/\/C«9m1/AC!)ATE(2«HAXACC)|CmNVEC<HAXCNN*MAXACC)«N0CHAN|N0SURi 
lSu 6 CAT<>*AXSUP);SU§ 5 iP(MA^“’B 1 .C*fXNtlMAWAt)VCATTM<MAXCAT),N 0 Da» 
2N0OU.Nf'TNiP*aTCAT(NP0TS)|D2TCLU(NOeTS) 

INTEGER AOATES.SUNaI.aNALSTjFLOCaY.DOTDAY.POaTEIiTDATEI 
Integer PDATF2iT9AtB2,PUATr3iTrATE3»CATNAM,'FT5x!6»RANO0M»GRID 
byte DELF’L«.M0*C8»ReiLGRiSi'NEL«NSTART,NTVPEliALPiALP0 
■ BYfE PGTrt,PrTcTP;vAP»VA^0,bLAPfcL»7TPE 
C 0 MHPN/C 0 M 2 /ISEQ|OPLFLGfN 0 ACO«ADATES( 2 iMAXACO)iSBlL 6 R(MAXACDii 
lSUNEL(MAXACD)*SUNAi>(HAXACD)«f^ATE(2)*ANALST(5)iFL0DAY(2)* 
2D«T0AY(2).»'STAPT,NTYPEl»PDATEl(2liTDATEl(2)«PDATe2l2)»TDATE2<2)i 
3PDATE3<2>»T0ATE3(2)|NRCATiCATNA^^(MAXCAt)i ALPiMAXCAT)iALP0i 
_4 PCTCT (MAyCAT )tPCTCT0, VAR(HAXCAT ),VA Re 


C# 


integer EFLAGl«EFLAG2«EFLAG3.EFLAG4fEFLAQ5«UFLA61«UFLAQ2iUFLAQ3i 

il 5 -LAG 4 

integer PFLAG#nSKH'T 

C0MmPm/C‘^M3/»Fi AG.^’SKI-.VT*£FLAGiilFLA62*EFLAQS»EFLAG4iEFLAGB|UFLAQi 
iiUFL*Q2.UFLAG3 .UFLAQ4,N EWLAH(MAXSL G) 

integer TXl,TYl,TX?,YY2#ACn|SP,G,B.OTHIND,D0TAPY»GHlN.OMAXiFUL 
integer SP^IND.CLA-'ND.CLUW jD 


C’ c .'i 


page 2 


P2RTPAW IV^ 
TRAJPU,FTh 

0024 • 

• 

0025 • 

» 


Plus 


i2l4<»|59 pV«A<>'G*72 


V02-«4 

/TPt'*L*C'<S/*''' 

C2‘<na>./Cv^H4/TXi.TVl.TX?,TYv,|Xii|Vl»lXP»!V?»AC0|8PC2MIU4)«6l4). 
1*J(4).dt jNP(«», !^rT t),^Pn\0!O.-NP8PN0).IHH!NPt4)*^UMO8T» 
?ni6TA4Y<j»PTS)»«'*lN,G”AX»rULC2»7>«Ci.AWN0(P)#ClU«Nl)<8) 
C2lHt*>i/C''K5/3tSKI;j.HA4r2*«t\0^T5t}.6PlO(\'O2TS)«DUBEL(l4OeTS)« 
lTYOgC>n^iTS)»‘'6Cl.'<r 


0026 


002/ 

002o 


r 

r 


c 

r, 

C 

c 


PAOAKgTe«> CC”«f3 


Sl?\ YYSCAL(4), >iYnjT(5)*<Yl‘i{5)»GRNeii«6) 

-^►'r SiB f*i)/T*-S(r,t),Jt* P(2^ ),CmLPAT(24).k!J6T6<?) 



x?:5 ■ 


0029 

c 


£tU 

'aLE*:ce (Uwr.j^jF) 




. v-V 

093u 

r 


tat A 



• « * » » l» • * * B • * 

•N'/ 


•... • r 

•in ■ -• 

0031 



’•AYa 

xCH/6/»vci/'*/,:jCAl.t 

‘ / 




0032 



'»A T A 


*y-i 





0033 



data 

SCALl/^vt 

• • •••AS* 

•. *a’. 



■'' ' ■ 



1 


♦ Vf 

• • A • , 0 


!*.•»*/ 


" 1': 

0034 



; AtA 

C 'L‘. 

*••1 S*iiS 

* ♦.* *» 

• *. 

. P 




1 


• f 

•••1 •••f. 

* L *»•'***••• » 






2 


• / 


•t**’*'*’ '» 

• •» 





3 


• » 

*0 •»4.S*U*0 

•A*» • *. • *# 

• ♦. 





4 


• j 

S*L*.*US 









• 


•E**» •*»‘T** 

•A*/ 



0C3^ 



.A’’A 


• •’••• • 0 • 

•-S’ ’.'I’l 






1 


fro 

• • • •' • • • 

i *i» ’.‘rs 






c 


•n« 

, f A f , • • , f 

tS* '.n*. 



; t; 





•r» 

• •- * • *^ • • • 

; ’.'A', 

t 





41 


• r 0 

• • • • • • • • • 







# 


• 40 

. ••••!•.• 

IT», 

V 







0 •:• 


•» '* 





r 

n 


0036 

r 

cXP|, s 0 








0037 


■>l .Tin 

B 

r. 

OOSH 


“kiL: *.T(2) 

S 

0 

0039 


ThU AT(J) 

B 


0040 

r 

<*M| 7A7 (4) 

8 


0041 



B 


004? 


CMl fV, T ( 4 ) 

8 


004 3 


rwt.:^AT(7) 

B 


0041 


CkL mat (8) 

8 



PIRTRAN 

m 

3 

a. 

• 

V02.04 12IS8I99 29*AU6«77 PAGE S 

TRAJPL.FTN 

/TRiBL0CKS/WR 

0049 


CHLPAT<9) ■ 0 

0040 


CHLDAf(lO) ■ 2#CQN 

0047 


CHLpArCtl) ■ 0 

0048 


eHLPAT<jgl ■ 0 . _* 

0049 

w 

CHLDATJIS) ■ 2#CD1«^ 

0090 


CHLPAT(14) ■ 2*CQN 

OMl - - 


CHL0AT<15) ■ 0 . . . 

0092 

c 

CHLpATdA) • 0 

0093 


CHLDATd?) • 3»CnK 

0094 


CHLOATdR) ■ 0 

0095 


CHLDATU9) • 0 

0096 


CHLDUt29) « 0 

0097 

\f 

CHLPAT(2i) ■ 4»CDM 

0098 


CHLCAT(22) * 0 

JJC?9 


CHLDAT<23) *0 

0060 

c 

CMLnAT<24» « 4«Cnt\i 

0061 

itf 

“lMLL~* i ' ’ 

0062 

4 

C 

IF TI wLL '.QT. NBiSPUpT " IWLL V f 

0063 

c 

5 

00 10 IilWLL.MPSPWp 

0064 

io 

IF (SpUlNOd.I) .EO. 0) G8 T2 20 

0065 


hSEKPG (3) 

0066 


write (6«100) 

0067 

icc .. 

F0RMAT (IHOi* M0 W1NO0W AVAIlABLEM 

0068 


RETijPn 


c 

c 


c 

0069 20 XY(^uf(l) ■ 0 

OQT O >V MuT(2) « (SPwlN0<2 .I) ♦ SP.lNp<4in • 2) 

0C7i ■' XV?ijT(T) ■ (SPwrgO(4il) • S6 wInD<2iI) • ?') /4 

0072 xy<?UT(4) ■ (SPWlvD(3*I) ♦ SPwlNC<9ft) • 2) /2 

0073. “ XyPuT'(5) • (SPWtV'OiS.n • SP>'In6(^iI) • 2) /4 

0074 " IWL V l 

007 L _ IwLl ■ 1 ♦ 1 _ __ _ _ 

C 

0076 CALL I«K UYayT) 

C 

C 

C ' ■■■ ■ ■ 

0077 30 Call hSekpg (7) 

0078 WRITS (6.200) 

0079 200 FBfiMAT <1H0»* SELECT WINnBW L2CATI8N F0R TPAJiCTPRT PL0TH 

1 /,' ^ FNTEP ’•C?” TP accept '“^INOBW AS blSPLAYiO.’# 

2 _/f * _ PINTER tN) T0 OISPLAT NEXT DEFAUL T W INpgM,t« 

3" /«’ ■ 0R E'TEF (C) T? USE cUWSpR TP SELECT ». 

4 /.*1! DESIRED LgCAT10N Ar p 512E >M ♦ 

C 

0080 CJLL aUTPUTJT) 


OBIOINAL PAGE IS 
OP POOR QUALITY 


i ■ -V-? > V. » i s r 

V0?«04 jSl4«l99 






9|<iD.Ci.300fc**<^»ir' r.; 
PfRMAT <?44tlvH ‘ ‘ V' 
CALL F^ONT UN9UTi74) 
IF (iNPUT(t) *9o; »X») 
IF.jLiAI&UTUl-JUJ; •J!l 
IF (InPUTU) ,60. »4M 
IF (ImPUTU) .CQ. *C*) 
IF (iNPUTdJ .M6*. • •> 

G4 T'’ 3200 


Q9 Tfl 9999 
.AfilkRR 
G9 Te 4 
G0 Te locc 
&e T» Ac 


CALL HSgvpg ($) 

C4,490l XC<*R.VCaR 

fZOmAT S(tL£CT THE C9B9CINAT5 SYST6HIS 

/,« CHANMELS 1*4< (OR^EmBSS* (e)RlQHTNES$'i 
/,‘i ?« GREEK (MUflHcR. ».4l» •• »iAl. • >•) 


0093 


CALL >iL'Tout C7) 


0394 


READ (^.300) input 


0095 


CALL pPa -T (I <PUT,74) 


0396 


IF (IrjHUT(l) .EQ. »X’) 

30 Te 9999 

0097 

r 

ir (IkPut(i) .eg; i *) 

CO Tl looo 

0Q9S 

c 

D? «10 I«1|7 


0099 

418 

!F (l‘«PUT(l) .PL*. fij5 TO 

OlOC 


T’ <0 


0101 

500 

10 510 J«l.7 


0102 

9l0 

IF {l\PUTn) ,5vl. ^UH6«N(J>) ce TO 

01C3 

C 

30 T? 40 


0104 

c 

600 

XCH B I 


0)05 


YCH e J 


0106 


XC'H » UPl'T(l» 


«107 

f' 

** 

veCK t I."Pl»T(3) 


ciee 


GALL HSEKPft i4l 


rio9 


/•R!TE (6,610) KC’«.VC4P 


niio 

610 

C 

f?pvat (iho,* selected 

ChANNFLS ■ ' 

0111 

C 

loon 

CALL mSE<<P5 (5) 


0112 


JRtTE (6.11U0) SCALcF 


0113 

lion 

Fon^AT (IHO,* EMfeO SCALI5fil‘» 


1 

/,'l (F)IXP8. ((,)LPbAL, 

'a)naLY8T I 

0114 

U . 

CALL OUTPUT (7) 


0115 


real (6,300) l^'P■lT 


0116 

llin 

_IF (liiPgT(l) .50'. 'X') 

32 T? 9999 

0117 


IF (InPUT(I) ,Ft. •»•) 

CO T{* 40 

0111 


IF (InHUT(I) ,F«'. '6 ') 

ro To l2oO 




12148199 2««AUQ«77 


V. .. 


rCKTKAN tVaPLUS Vet«04 
IftAJgUflM /TWlBlffCKS/Mt 
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0119 _ 

0120 
0121 
0122 

P123 

C 
. C 

0124 

0125 . 

0126 

0127 

0128 

C 

C 

C 

0129 

0130 

0151 

0132 

0133 

C 

C 

c 

0134 

0135 

0136 

0137 

0138 

_C 

0139 

0140 _ 

0141 

0142 

0143 

0144 

-6149 

0146 

0147 

0148 

0149 

jno ____ 
oisi ■ 

0152 

0153 

0194 

C 

C 

-~sm 

0156 

Oi97 

0156 

C 

C 

0199 

0160 

0161 


iL -QE .Ti-iaiii.._ 

tr (IN^UT(I) , 10 *. 'AM no To 1400 
. . ir.UNfUlU) ,NE. • •} GO Tfl IQOO 
tN9uT(l) ■ SCALEr 

Qfl TO AlU 


1200 


XYSeAL<l) ■ GHAX 

XyaC4Lt.ll, f QHAX 

XYSCALt2) • GHIN 
YYSCAl • BM!M 
GO TO 1435 


1300 XY$b~AL~(l) a rUKTiXCH) 

xy$cal< 3> « ruL( ? LyfiMJ 

XYSCAL<2) ■ rUL(tiXCH) 
__XYSCAL<4) ■ PUUliYCH) . . 

Q2 TO 1415 


1400 CALI HSEKPr. (•!) 

CALL HSEKPQ (1) 

WRITE (6,1410) 

1410 PBRfiAT <1H0,* INPUT ANALYST SCALING PACTRRS*) 

ii • 0 

D2 1430 |J«1,T ■ 

OR I4i7 |K«1,4 

1417 SCAlEr(|«) p SCALHINIK) 

1419__ CALL nSEKPG (2» 

UR I ye (6,142ft) Sf'ALER 
1420 P8RMAT <* S '.4A1,» ■ >*) 

Call bUTput (7) 

RfAO C6,100) JNPuT 
CALL rR0*JT (INPUT, 74) 

IF (InPOTII) ,EQ. *X*) 00 T? 9999 
IF (HPUT(i) ,FO*. 'H‘) 00 TO 46 
IP ■ 0 

CALL INTFF T|P,|*JPUT;74;KVsCAL<|j))" 

IF (XySCAL(U) ,LT. *5 ,0P. XYSCAL(lJ) ,GT, 256} 

II * H ♦ 4 
143" C0NTINUB 


ins — caIl'hsei<w r.rr~ 

CALL hSEKPG (3) 

“ write (6.1440) 

1440 F0PMAT (1H0,« SELECTED SCALE l<) 


n« 1470” l«l,4 

50 1450 J«l,4 

1450 SCAlER^J) ■ SCALi((l«lt*4«J) 


G0 T0 1419 





■ r* 


F0RTRAM 1V«FlU8 V02-C4 


TBAJPUjfTH 

0162 

0163 

0164 1460 

0169 147C 


\2i4Sl99 


CAU v«S6KpR (2) 

••R1T6 (6.14fcf) SCAlEPiXYsCALd) 
F0 »>mAT <4X,4A1,* ■ *,13) 
cesTl:-i‘JB 


?9«AU0»7? 


CALI PKeCBP 


ri8 o9Q'’ 

*.'DATPh‘l* I) « AL.'.TfSdi I ) 
^D»TPsl2.n « 'L.Trs<2,n 


=^EAL' (7». ) r^ur 


• OTc * 0 

•jYt X yi TC ♦ 1 

T1 B ,'l ♦ 1 


J * 1 

7'li' !sir\'AC' 

IF (‘OAT'-Sd, n- idi-Sd.j)) 70l0#7020.7n3n 
!F c.’':ATrs(2, P ,L=. ^*'Arec(9» J)> G3 Trf 7P10 

J« T 

'•>* T!' "fc 

V •;» T‘(l) » f’-Tc'-.d ,.!> 

a »:'AYfc- (;>, j) 

•’lAT-sdij) s r 

■’^AT'F<2,J) « ^ 


01“?« 


ir 

t ,cd. 4) 

O’ TV 

7 4" 

Olflfc 


'< 

a { XC^> ♦ 3 ) ♦ 

r* ( j • 


0187 


x: 

.»TA » Ti-vTf (•< 1 

U'l.iF > 


Clfw 



T */i:, 



0109 

7C4f* 

IF 


0 • 

7-5’ 

019C 


IF 

.c J, 6) 

G’ T,, 

7 tr 

0191 


XCATt s 



0192 



T' 7l''0 



0193 

7‘lP'l 

S JguF((J« 

O *4^t( ) 


0194 


5t 

T ' 7l'‘.0 



0195 

7CoC 

v: 

MAS Jdl'F ( ( J- 

! )»4*6) 


0196 

U 

7l 

IF 

{y-.^ ,l-t. 4) 

T.1 

;i 4- 

0197 



8 ( V C M ♦ 3 ) ♦ 

• *( j-l) 


019H 



tj.‘ * 1HVfF(K, 

t-i;F 5 


0199 


L 

!•' 72^0 



0200 

7i4r 

IF 

(''C-t .tC. 5) 


7i 5’ 

0?ni 


IF 

(''C^ .fC, 6) 

uO T3 

716'' 






i 

>» 


riRTRAN 

JiAJBUL 


0102 

02 A 1 . 


V»PLUS V 08«04 

h /TRiiLOeits/hW 
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MOi 7 


0204 

Olfli.. 

0206 


0207 

0200 

.0209 

0210 


0237 

0219 

0239 

•]2L40 


0241 

.Ui2 

0243 

0244 


YDATA • QRNOe(J) 
69 T9 7800 


VQATA ■ jBUr((J*l)*4*9) 
ftfl TO 7100 . 

VDATA ■ jBUr(Ot)«4*6) 



1202 >!ii4JL.i_JtYSfiAIJt) 


XMlN t XySCAL(2) 
1HAJlj.-1Y5CAL(3) 
YMIN ■ XYSCALC4) 


lUKU 

0212 

0213 

0214 

C 

c 

c 

YUl * SpUIN0(3«tWL) 
XLR • SPWIND<4,1WL) 
YLR • SPW|ND(9«1WU 


0219 


XFAC • ({XLR-XIIL)«lOO)/<VH4X.XMlN) 

0216 

c 

^FAC ■ ((YLR*y'>U*10O)/(YMAX-YHlM) 

0217 

c 

0200 

IF ((X^'AX-XOATA) ,LT. 0) 

66 TF 8300 

0218 


IF ((XMAX-XCAlAl »EOj 0) 

6? TP J3fie._. 

0219 


IF { (VDATA*XHIN) ,LT, 0) 

68 f0 8400 

0220 


IF ( (XDATA^XHIM) ,F0, 0) 

6P TP 8400 

0221 


XCOaTa • ((XOATA«XHIN)«XFAC)/100 

0222 

822 n 

XI • XCDATA ♦ XUL 


0223 


60 T«'^900 


0224 


XI ■ xLR • 2 


0229 


60 TC ASOO 


0226 

6400 

f 

XI * xUl ♦ 1 


0227 

L 

090fl 

IF ( (YMAX-YDATA) .LT, 0) 

G8 TP 8600 

0229 


IF { ( Y‘’*X»YDATA) ,F3. 0) 

60 Tp 8600 

0229 


IF ( (YOATA-YMIM) ,LT, 0) 

68 TP 8700 

‘ 0230 


IF ( ( yData-ymin) ,EQ. 0) 

60 TP 8700 

0231 . 


YqCAlA ■ ((YDATArYHIN)4YFAC>/100 

0232 

6920 

Y1 • yU • YCOATA 


0233 


60 T? ’000 


0234 

8600 

Y1 M yUL ♦ 2 


0235_. 


60 Ti^ ’000 


0236 

8700 

VI • yLR - 1 



C 

C 

C 


9000 


VI ■ XI • 1 

VI ■ Yl - 2 


C 

C 


Y2 • yi ♦. -3 


00 9ibO n*i,4 

Aar M CHLa*T({PtUTC>4)«»4*C) 


!Nr 1 

.C^AWL-J D AUTP < X.1, V 1 , X2| Y2 , C , AOP 1 1 mD I F^O > 




f 


c 


F0RTRAR 

n-Rt U8 

VQ2.94 

D 2144 159 29«6UG*77 

IRAJRL.FT.) 

/TR|«L«CKE/4R 

0249 

9100 

c 

CRVTImUE 


0246 

c 

/» 

fF (w'uTC 

• »i£. II 9.1 T4 9900 

6247 

V 

WD1I4) 

• CnR?A((7CR9ll*4«9) 

0246 


C3Rnl(2> 

• C'*RnACUC‘<»l)*4*2) 

0249 


C2R01(S) 

• CORDACtXCH^tUeAG) 

0290 


C3“01C4) 

* C'«RnAnycM«ii46*4) 

0291 


C2VD1 (9) 

f C^R*'A{(YCH-i)#6*9) 

0292 


C0“ri(6) 

« C<kPACtXCK**l)*6A6) 

0293 


C7*Rn2(l) 

« C^RrAC<YCK»l)*6Al) 

0294 



« C R! a(<YCM-1)»6a2) 

0295 


■JIM^PC?) 

t C RnA((Yc:H»l)»6*3) 

0256 


C{fFR2(4) 

• C^f»rA<(YCM-l)»6*4) 

0297 


•C770;>c5) 

* C*^NnAMVCM*l)»6A5) 

0250 



• CiiKOAC{YC“»ll«6A6) 

6257 

w 

'•ail ^StKPr, c-1) 

0260 


call '•Sgi'Pr, C5) 

0261 


•Rllt <6, 

,9?10) N*C'*RD1,C Pr2 

0262 

940^ 

F:?P>jAT (IHO,* TKAJ6CT0PY PLI^T REPORT | 


MOB S 


..4 


P2A3 

026'; 

026>) 

0266 

0267 

026 *> 
027i: 

0271 

0272 


0271 


0274 


0275 

0276 

0277 


0270 


'i 

•a 

I 










1 

i 




AC-lOlsITl, 


6T6 


F^R on 
»71I?7‘T4L V6RTIC6U 
*»661**‘X.6A1,« CFL^A'* 


NUH9ER 
» , 


IS, 


call NS6.»pn Cl) 


VAPI 


C L *‘5’' < <r«l >• '*♦’ > 

•- (w*l)«7^?> 

r. 'L'*R"C<U»i>«7*l) 
t^LPRSl {a-l)*''*^* 

C'^LPA^dO-l)#?*') 
t L'‘»*<5t <u*l)**’^*) 

n LCKICC )-l)»7*7) 

•'RITI- (6*941,0) H''ATta)*-tl>ATr(?),)inATA|YnATA,CUffR 
> AT (4<,I?,»-*,I7,llX,n,PA,|3»4X,7Al> 


C,4t '/“CD 
" M ;;• (?) 
r<>l :'. c «D 

Ctl, Wc4) 
CfcLJ“<5>) 
CKLzRc 6) 
C/l ,>“C7) 


C 

c 

L 

L 

C 

C 

c 

r 


IF Cu^C .LT, 
‘^gTu**' 


VQC} '(I? T' fV9fe 


40 uC 


41CI' 


CALL m^EkF**- C5) 
•MlTFC6,H?t') 
F3Pf4iT C'jtl 


1 /,•$ PLAft CM'CSt'; A'l' 


*»NC«, PV 

»T(!B »tR** 


CURS0R) 


UwEn ready >*) 


CALL /''TPilT C7» 


4f 










THERE A 
WINDOW 
REE 


"NO WINDOW 
AVAILABLE" 


SET CURSOR 
BUFFER TO FREE 
WINDOW 
COORDINATES 


RETURN 


WRITE CURSOR 
V TO VIDEO j 
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B 



I 



YES 


©- 

3200 




1 



40 





CHANNELS 1-4 
(G)REENESS 
(B) RIGHTNESS OR 
GREEN (N) UMBER 
(DEFAULTS) 
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14. AUTOMATIC CLU8TBR LABELLING PLOGRAN ACXJM 




MfBRTRAN IV 
ACUAP«FTN 
C 

0001 

0002 

0003 
■0004 
BOOS 

0004 


10130107 19«JUN«77 


*»AGe 1 


0007 

OOOB 

0009 

0010 
0011 


0012 

0013 

0014 

0015 

0016 


c* 


c* 


0017 

OOIB 

0019 


0023 

0021 

0022 


0023 

0024 


0025 

0026 
0027 
002S 

0029 

0030 

0031 
0332 

0033 

0034 

0035 

0036 


C* 


C« 


>PLUS V08«04 

THE autehatic cluster lapsllinq applioatieh program 

IBPLICII INTEGER (A^Mli(a-iJ __ 

BYTE HH8(B)*W(74}iO3TOAT,BUFO0T,CHANVC«NACO»AkABELiR 
real AH^UaUFCLH»TCIS4FLABEL 
include *8YtC3OO.3]CAHSC9H0N.lNC« 

INCLUDE !^¥lC90D4^3lCAHSPARANrlN9' 

parameter MAXCATa60»MAXSUBi60|MAxCHN«4(NPlXal96*NLlN>ll7iMAXFLO«50 
IjMAXVallfNOGTSaEOY.DLSKlPaiOiDSSKlPatOtHAXACOsAfNAXACCaRi 
2N0$PWDa6,N0DTHOaiO 

equivalence CCli ACHATE)* (C^i ISP6), (CS.RFLAGIt (C4«TXlIi (C5,0ISKTD> 
INTEGER Cl (449 )*C2(256)(C3(71)(C4( 340), 09(689) 

INTEOgR Ac6aTE,SUB'!!AT,SU3P'»P,CaTKKTiCATTM 
BYTE CHNVBC|W8CHAK,NPSI‘B,0?TCAT»D8TCLU 

C0MHPN/C0Ml/ACnATE(2.MAXACCiiCHNVEC(HAXCMN(HAXACe).N0CMAN»N0Sui^. 
1SU8CAT < pAXSUn iBuBPiaPC^AXSul » ♦•CrrRNTtinXCATI.UATTH c HAXCAT ) , NPO^» 
2N0DU#N2TH,D0TCAT(Nn0TS)»r»RTCLU(NOeTS) 

INTEGER AOAtES.SUNAi.A ML$T*fLl^V,6RTDAY.POATSl*TDATEl 
INTEGER PDATE2«TDATE2.PC4TE3»TrATE3»CATNAN*DI8KtO*RANOPH*6RtP 
BYTE D6 lFL«» N0 AC3» Sei L»*R . S'JNPI . NST aRT» NTVPSl* ALP» A».PB 
BYTE PCTCT»PCTrT2,VAR,vAsa,DLAPbLiTYP6 
C0MM0 n/C0M2/1S6Oi 
— jNEM^Acorr^uM 


15P 


SPIlGR(maXACD)* 
FL9DAY(2), 


l^NEL "vw I f -J'J-'jJr intj-iEicif 

2PgT D T Y(j>.w8T APT.. NTYPEl. PDATeit2)«TDATBl(2)»RDATe2C2)«TDATE2<2>» 
3POATE3t2>»TDATR3(2)i^'arAT,CATN»K{KAXCAT).ALP(HAXCAT)#ALP0» 

4 PCTCT(VAXCAT)|PC«’CTa,VAH(HAXffAT).V4BP 

integer EFLAGl.eFLAG2.PFLAri3. EFI.AC4 iEFLA6S.jrLAQl.uFLAG2iUPLAGt. 
IL'FUAGA 

integer PFLAG,aSKfirs,T 

Ci«lMKN/c0M3/PFLAR,’'S'<rrvT,EFLAGi ,EFLA62,EFLAGS»EFLAG4»EFLAG9,UFUAei 
l»UFLA62,UFLAr.3,UFLAG4,f E‘''LAB(f'AXSUR) 

1NTE6E*' TXi,TY1,TX?,Tv?, aC''ISP,G,E,DTWINO.O0TARYiGmIN,GMAX.FI'L 
INTEGER RP>‘-IFD.CLA/iNn,rLU'*» D 

C3MM2N/rCM4/TXl»TYl ,tX2i TY?, tXi *iVii 1X2. ! Y2, ACC|SP(8)» 1 11 (4) , G(4 ) , 
10(4),DT»lNr■(9,^'aPT .:C)»SP'<'I' D{5,^PSPWO), IHMINO<4)»NIIMO0T» 
2r0TARY(ND0TS)ir.H)IN,GVAX,FUL<?i7)«CLA4NG(O)«CLUNNO(S) 
C0>«NP\/caw5/P!SK!D.KAMra>i(v;DyTjS).SBIPCNDBTS>.B LABEr CNDP TS). 

lT YPE(-^i^?TS >.RErL>C 

T0MNj^7~7k-aT/PUFD'' T { 5? 1 1 ) , 01 F CLM ( 36 ) » TO I S ( NP0T8 ) » 

1 CKAMVcCMAXCHV»MAyACO).'''ArQ(MAAACC)(ALABEL(NDRTS).R» 

2 CLIA°(HaxSUB). !LA hFL(P4XCAT).FLAREL(HAXCAT)*ARlNO(ND0TS) 

O1MBNSI0N AhM(16,HAXS'JR»,ACAT(«AXCAT).MAjCAT<MAX«UB) 

O1MENSI0»‘ ANANPC' J0TS)iD'*TCAT(16iNO0TS)«CHAN(14),CLNAN(HAXBo<*) 

Ilaj 

CALL ASSf6F'<5, 'L.PI • ) 

CALL ELAPSEd 1) 

CALL ASSIQNI6. 'T1 I • ) 

CALL aSSIGW(10,*gPI •) 

CALL TInE(HHS) 

CALL iRAtEd'MJ.lV) 

call attacw 

CALL 2UTPUT(27,l?) 

alflas*! 








i!‘ • 

**.j. 


< I 




JIBIBAN JJtAKLUS-VOtaBA . 

iDkamz liajuNtzy. 


#AH 2 


o 


J2a» 

0840 
OAAl 
• 0042 
JOAS- 
0044 
J04S 
0046 




wn«NTVon 

M-iOjiCiUlflU. 


ir(TY0l(NAIi04N(nnN6«l) 04 TO 10 

miiJltAiL . .1 

NOTaNOT^i 

-AHAMfllWOmRAMPaHCll 




0047 

JIOAA. 

0049 

JQSO 

0091 

A092.. 

0093 

00i4 

0099 

0096 

0097 
0096 

^0. 

0060 

0061 

0062 

0063 

0064 
0069 
0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 
0079 

0076 

0077 

0078 

0079 

0080 
OOtl- 

0092.. 

0083 

0084 
0089 
0086 
0087 
JWO_. 
0089 


10 

c _ 

420 

-.JO— 

1000 


2110 

aiu 
— ao_ 


AUSBl C NO T ) >OL A681 C RANOOn ( 1 1 } 
irmiTi.Bq.O) 8i t8 2 0 

eONTlNUi 

MIUlEx2U.i21U (ANAIlOll Uiili^«ilLa!81 . 

rfNNATClXi *ARAND* i/« ClV«l9t9)/) 

MAtTet8«<aOOIlW>iB.IVWMM8lJ>rJai^6) .. 

rf4MATClX«90XtfOATBl*«!8*/*t2'/(t2/lX|90K* *TtNBl ««0(A1>/) 

— iiaiTE(6«211D) 

rO4NAT(2X«UUT0(1ATlC CUUSTEN LAB6LLIN8 

. -WAlTEcOiOllll 

rB4MAT<lX»» MAY 1977 •//} 

JlMtL 


') 


10KL-. 

1 


Am. 


UatTE(6a0l0> NTVPPl 

f BBHAtUXiJ lom .NUH95J! . 2E JY?21 UB2U1 NO O0TO* * t^// 
*9 NUMS60 0P TYP81 LABSUINO OPTS 70 B8 UOSO >*> 

CALL aUtPW(7) 

06AO(6*1O2O) W 
^BBRAllZAAlL 


40 

IDSO 


90 

i04fi 

JL 


1090 


CALL r00NT(H,74) 

80 to 1999 

tP(w(i)«eo.* M m«ntvpbi 
I flliUBfl.NTYPBl) Of te..iO . ... 

IN*0 

-CAU AilirfU!ti>U24.aLl_. ... _ 

IF(IU<LE.O*0R.N'.OT.^ITVPS1) 08 T0 30 

KtO 

W0ItE(6«iOSO) 

PAPHAUiS NUHOER 0P mEAREST MttOMB0R(S) (OEFAULTiD >*) 

CALL 0UTPUT(7) 

JtEAniAilfl20L« 

CALL FR0NT(U(74) 

IF<M<1>.EQ4»XU fit T0 1999 
tF(M(l)*EO«*RM >10 T7 30 
_I£C«U»jEQiMi m . - 
IF(K«E0,1) 08 T0 90 

. IKlfl . 

CALL tNTFFClK,W,74.<) 

- ltU*LE.A.«R.K..Al4»lt«RAj(;,ftT,avpel» 00 TP 40 
WRITE(6«1040) N*K 

_ F0RhATC/2X»*Y8U have QH0SEM».lXf l3«lKf »TVPE1 LAOSLllNO OPTS *n 0>. 
IX * l1 « IX • • NS AR6ST . ME I QHOPR ( 8 P // ) 

— ^ ... ... 

F0RmATC»S (C)0NTINUEfE(X)IT 8^ (OIA^KUP >•) 

_ CALL_BMPUT(1L . 

RSAO(8*1020) W 

CALL FR0NT <W«7 4) 

IF(W(l),EQ.'XM B0 T0 1999 
■ 0»» 60 T0 40 


o 


iWtirtot* 


C*) 60 T0 100 


!>• 1 


Tf- 





reRTRAN l¥«RLilS 

ACULAPtPTN 

0090 


0091 

0092 

0093 

0094 

0095 

0096 

0097 
0090 

0099 

0100 
0101 
01C2 


0103 


0104 

01C5 

01C6 

0107 

0108 


C 

C 

C 

100 


iQ2i»04 

/TR|OL0CKS/^)9 

01 T0 90 


i0l30t07 19«JUN«77 


PA06 I 


COUNT CAT6Q0RI6S 0P INTEOBSI STfRl IN ACAT 


90 


00 

C 

C 

2000 

C 

C 

c: 

c 

921 

1060 


w 

c 


original page IB 

OP POOR QUAUiy 


ICAT»1 
KNNaK 

NPaty 

DO 00 JaifND 
ACAT(l)>AUAeEL(l) 

DO 90 KKal.lCAT 

lF(4LA96LU}.En,«CAT(AK)t 00 T« 00 
CONTINUE 
ICAI«1CAT*1 
ACATtlCATI^ALA-El U) 

CONTINUE 

NCAT»!CAT 

^R!TE(9,420} (4RAivr(I).|Bl,Nn0TS) 

WRITE<5,2000) »IC4T,(ACAT(|)»!»1,nCAT) 

FORNATUXi’NCAT tCAT*»2>,I3,2X,20lS/) 

READ AU. opt data tNT0 0.IFD0T VIA SUBROUTINE ROBOAT 

CAI.L AO0DAT(M(ANAMr*P0TD^T*Cri.A6) 

write ( 5, 421) {(P*TnATM»»RANn(j).),i«j,H),j«i,N) 

e0RHAT«lV»‘DHTnAT'./.lA(lX»l3>/) 

IF<nFLAG,bP,n VoiTElOiirOO) . ^ 

F0Rmat</2x, t^tai. FNw.*'»i!i Classification acouisituns da not*/ 

2X.**^aTCM Pat* SaSE AC^UJ8ITTt^N8•/) 

IF(i)FuAQ,EP,l) C-* T). 109C 

SET CxlSTL'MCC FL^.O ),'R NFA»fecT nEISHROR FUB 


0109 


0110 

0111 

0112 

0113 

0114 
el^^ 
0116 

0117 

0118 


0119 

0120 


C 

C 

r 


123 

c 

Ul 

c 

c 

c 

c 

42? 

c 

334 


EFUa«4»1 

write header ?k4^rST :6lGMbefi FILE 

LUNae 

iSUB«l 

INNREC"! 

CALL aSSIi*'- (LL'^. 'SY«t?0o»l3NN,T«Pll»> 

PEFl"‘E F»LF Lu‘''( -AXS"B t732iO, ‘NREO 

wRlTfc(LU*‘* K'*'RPt.) K\.v,MD 

CjJNIIvUE 

WPiT^(^»lll) r 

^0RMAT(/6X,M.^i^HrC 9CSUP*»2IS/> 
IFdNNREC.GE.Ci/SUF*!)) 58 Tc 130 

BEAD hEA»! CLI'9TE» ISUa VI a SLRR0UTI‘JE ROCLMN 

CALL RnCLNN<I8l'*^ AMN, lT3cHN»f;*'AA) 

WRITE (9* 42?) ISO'm (Amn(I« ISL(^)i|alil6) 
r?pi>^AT(iy, • I4UP AH* 1 ,6X,tS,/8(ix«F6«2)) 
i>^'MtE{5*334) ISU >1 (A^N(MSLn),I*1i10) 
F0RmAT(1X> MSUR* amn* , !?,5Xi16F6.?/) 

00 l6q Iti,Ni) 

ARI.\.r)(I)8ARA'\lD(I) 


^3 


0121 

3122 

01?3 


f 




/TDlMCKS/KR 


PkH 4 


0121 

one 


ieio»iouo 


)AOAll&«NNN,tTtCHN«AO*T) 


BO riOHATC/eXiMCLO TOlOMStAX.lOdXirOit)/) 

B Ni,MuiUfiki>tcLutncm 

NOlTl(f|ll 3 )(ARlNOfn«OtAOBL(AO|ND(U}«TDIim»tal*NO) 

I X«filAlilXi.U 01 NO.DkA 4 Jl.i.TO.II*jLai^^^ 

HAJCATCtClSBatriXfrUABBUNCAtn 

miHElAlMHRECel .. 

4RtT6(kUMMNNReC)(AR!ND(t}|DLABEL(ARtND(t))» 

. JL—lBUll )* iPl.ND) 

18U0*tSUR«l 

llJf 120 _ 


ISO DO 140 lNAM«t,MAX8UB 

CUtAHtlfelAHlJCAUllAHiCLiAlilNAH)) 

CALL CLOSE f 8) 

1103 CALL JUTPUT(27«12i . 

MRITE(6»1102) 

U02 - .F0RpAT(/1X. 'AVAILABLE REP2PI& J« 

l«//(lXt'l. BRIEF CLUSTER LaRELLING REPORT* 

2«24JJU'2*-OETAtLEILNEARl8ri£liLHBOR REPORT' 

3*///«lX.'REPRRT8 HAY BE DISPLAYED ON TME' 

.. Atl^OLLflNUHfl OUTPiiT OEVlCESl' 

9i//.lX»'l* TEKTRONIX TERMImaL' 

^/«lX»'2i GOULP PRINTIIL'. 

7«/tlX,*Si LINE PRINTER'///! 

..UOB-.. -IMJTEtO *1104 1 ... ... .. . 

1104 FORMAT! '« SELECT DESIRED REP?iRT § >•) 

. CALL 0UTPUT(7I . 

REAO(6»1109) M 
.1109 format! 74A1J 

CALL rR0NT!W,74) 

IFlHtil. ^ .*1U 18’? 

IF!u!l) .EO, 'R*! 60 TO 1103 

_ . IF!w!l> '.EO, »!' ,«P, W!l) i£.C, *2') 0" Ti 

1F!4!i) .EO* * ') 60 TO 1106 

VRITE!A»1107> _ . 

1107 F0Rmat!/1X» '•••invalid InPUT^«^'/I 

91..IiLi.lDflL _ . ... 

1106 RaW(l) 

1113 WR1tEi6<1109) 

1100 format! 'S select CFSIREO OUTPUT DEVICE f 

CALL 0UTPUT(7) 

READ!6«1109) U 

CALL FfiONU.«i74) .... 

IF!w<l) .EO, 'X*I GO T4 1999 


•2«) OR TO 1106 


IF!m!i> 


I OR, 4(1). 


IF!w!l) ,E0. '2') 60 TO 1111 
. IF!w!l> ,EQt »S') 60 TO 111* 
WRITE!6,ii07) 

M t.0 U13. 

AaS 


') 00 TO 1110 


P0RTAAN tVvPLUS VO0*O4 


acuap«ftn 


/TR|8L0CK8/»I« 


10130 1 B7 19«JUN*77 


tAB0 9 


0107 



CALL A8tI0N(12t«Tir) 

0108 

0109 

1111 


IS 

CALL A88|av(l2»»8PlM QVAJJ^ 

Of 78 1114 ** 

0170 

0171 



017: 

1112 


AMS 

01? > 



CALL a8.$JQMU2««LPI') .. 

017 i 

1114‘ 


ir<R ,60, *1*) C7 T,» 1119 

0179 



call KMN8R6iCA) 

0176 



CALL CL09E(12) 

0177 



!F(A ,60, 8) O'’ ni 1999 

0178 



08 T** 1103 

0179 

1119 


TITlP.iO 

OlAC 

1116 


ir<4 ,NB, 4 ,aV'D. a ,NR, 5» Gk5 78 996 

0181 



IF(TITL6 ,E0, 01 Or 78 996 

0182 



68 7'" 1119 

0183 

1121 


CALL CL0SE(12) 

0184 



82 r-.» 11*13 

318!> 

1998 


CALL CL0SE(1?} 

0186 



08 7^^ 1999 

0187 

1117 


KFli''r2*i 

0188 



KF2»KF2*5 

C169 



IF(2r? ,f,T, ilOU-’J .^r2•^.■•S'JB 

0190 



68 7« 1118 

0191 

996 


<Flpl 

0192 



<F?t1 

0193 



.07, • <i8U’) .\r2*V*Si!ii 

0194 

997 


CAIL 4U7PUTC»7,19) 

0199 



T|TlF,1 

0196 

C 


CALL lPATfc(l.'^,ID,lY) 
CALL TlP^(W-S) 

0197 



<RlTL(12,lOOf')lM, in, IV, (»f ?!< j),j«l,b) 

0196 



-.9176(32,1070) 

0199 

1070 


r(8PM4T(lV, •ii-JI'^F CLi'SVfca L*8PIL1»^0 R6Pl'97'//J 

0200 


1 

i^RlT6(12,106 1 ) IS'^ ii, ( (*Cr *7F( t* J),I«l,21,J4l**’AFACC). 
(C«A (I),I*1 ,IT^m*h* ) 

0201 

1080 

1 

raRMATdV, •SkG'"fc‘'T P«* , 14/lv, »*C0UISI7I?IN(S)»»4(1X, I2i M) 
/I'X, •Cl uSTeRI^R rHA^^ELS*•,l6ll*, 1?)> 

0202 



WRlTF(12,121f') fr.Kt;- 

0203 

1210 

1 

reRnATdx, ’f '■'irfeR ?r TVPU i i.AQfeLLING O07S*‘,I3/ 
lX,*MU^af< «JF MfiAReST. “£TGM“:'9S '.iS6I)4* I I3/J 

0204 



yRlTP(12,1091) 

0209 

1090 

1 

r0'’MATdX» •CLOST'^P' , 1 3V, ' ^F MAJ0R|7v» ,10»(, • AOT0M4T1C 

/ 18 X. •'-t A9FST ‘IEIG^*J -KS'//) 

0206 

1119 


wfiITF(12,llOO) ((I,^ 4JCAT(^,CL^ AM(nj,l8t(ri,KF2) 

0207 

1100 


F0fl-AT< <?X, n.iav, I3,29x, AD/) 

0208 



IFlKFp.liC.VORUP) 6P T2 li3l 

0209 

1201 


FjjOxATflX, *6^J V>V 9cP7fJT»/J 

021U 



IF(A ,tQ. 4 ,29. A ,P3, ?) «'• ri 1117 

0211 

U2U 


.*R1TP(6. 1200) 

0212 

1200 


F(V)IT, (-OkTU'JN, *8 Face (FiaPwApn >•) 

0213 



CALL .icmuKT) 

0214 



^6»D<6d>2C) « 

0219 



IF(W(1 ) ,f.O, • V» ) T - 1994 

0216 



IFIadJ.F'J. •‘’' ) 7 ll'l 

0217 



IF<w(t) .£7, ’F* -<•) • •) 68 7^ 998 


S-i' 










P0RmN IVvPlUS m«04 lOlSOli)? iS«JUK*77 PAGE S 


ACLLAP.FTn 


/TR|Bu0CKS/WR 

0167 



CALL ASS:6Nil2.*Tim 

0168 



80 T8 1U4 

0169 

1111 


A»4 

0170 



CALL ASSlQMtl2.*6Pl') 

0171 



GJ T0 1114 

0172 

1112 


A«9 

-0173 



-CALL aSSJ0W(12i»l1J'> _ 

0174 

1114' 


IF<R ,60, »l») Gi T0 1115 

0175 



CALL K^NPRM(A) 

0176 



CALL CL0SE(12) 

0177 



IFCA ’.EQ, 0) G'’ IV 1999 

0178 

0179 

U15 


1F(A ,NE, 4 .AMD. A ,NE, 5) 0* T8 996 A>OOR QUALITY 

0180 

1116 


0181 



IF(TITL6 ,60. 0) Gl" T0 996 

0182 



60 1119 

0183 

1121 


CALL CL0SE(12) 

0184 



G2 Til lin3 

0185 

1998 


CALL CL0SE(12) 

0186 



60 T'^ 1999 

0187 

1117 


KF1«'<f2*1 

0188 



KF2«Kf2*5 

C189 



IF<Kf2 .5T, ■a'JU;’) ^F2■^3S'J8 

0190 



60 T« 1118 

0191 

996 


KF1?4 

0192 



KF?b5 

0193 



IF{KF? ,r,T, i\F2»M’Si;Li 

0194 

99 7 


CAIL flUTPUT(?7,l?) 

0195 



titlfsi 

0196 

C 


CALL iPATtUM.lD.lY) 
CALL TlM6(Hi^^) 

0197 



■<RlTta2,l000>lM.in,IV, 

0196 



WRITE{12,1070) 

0199 

107? 


F0RmAT(IX, •ORIFF CLl'STER LARFLUIA-Q REPeRT’//) 

0200 


1 

WR1T6{12,108DISPG, ({ACT *TF{ 1. J), I*l,2»,J»l,MAXACC), 
(CHa^;(I),I«1,IT/{*hm) 

0201 

1080 

1 

F0RkAT< 1V, ’StG^^fcMT PBM4/1V. •ACQDIStTI8N(S)B*4(lX,I2*13) 
/IX. 'CLUSTER! 'MG rHA\vELS* • , 16UX, 12) ) 

0202 



MRIT6(l2.12in) 

0203 

1210 


F0RhAT( 1X, 'M'MCER ?«F Type 1 I.APElLING O0TSBt,l3/ 


1 IX. iir MEiRfST 'lElGMariRs HS60**||3/) 


0204 

0203 

0206 

0207 

0200 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 
0217 


1090 

1119 

1100 


1201 


WRlTe(12.l090) 

F09mAT( 1X, *CLUSTf:PMOX» 'NOH bEB MAj3R|TVf ,10X, *AuT 0MATIC 
/IPX. 'NEAREST 'IglGWJ 'MS'//) 

WRITE {12. 1100) ((I.MjCATd >,CL^AH(I)),I«KF1.KF^> 

F0RkAT( (?X. I3.18V, I3.2SX.AD/) 

IF(kF 2.6(5,N0«5UR) 6R T2 ll3l 
FflRMATtlX. ‘ENU *"F REP!?0T»/) 

IF(A ,EQ, 4 ,09, A .EO, 5) o'* T(j 1U7 
wRITF(6,120C) 

F0RmAT(*t, F(X)IT. (-06TURN. »« PAGE (F)09WARn >t) 

CALL «JC'TPUT(7J 
REA0(6.D2C) w 
lF(W{i),EiJ.'X*) r,.) T" 1996 

T? ny.i 

IF(w(i) ,E0. *F' .'^R. “Mi) ."M:. • ») G3 T0 998 



i 


LARfcl. *» 




1120 

1200 



0219 Qi TO 1120 

0221 ' QI TO 1120 

0222 - ^29i _ iFiitr2^aw:LJi0aua)-m..Ti_t9Q - 

* 0223 KFl«Kr2n 

J22A HE2 a«£1 ±2-, • - 

0229 1P<KF2 ,LE. NfSUB) QO TO 997 

.2229. IlFtiNoSUB 

0227 80 TO 997 

0220 1999.. .MiLTJNiJE 

0229 WRItE<6«706) 

■■Qiao ZAO BCXitT flw tR »6eveLs >«> ... 

0231 CAUL 0UTRUTC7) 

0282 .111010x1020 )_k . 

0233 CALL F00NT(ta,74) 

-0284. rFijiK t).eQ;« x«:flR. «fi>.EQ.< o ae to 999 

0235 tF(W<l).EQ.*RM SO TO 190 

2286 _--m US2 

0237 CALL ELAPSEUn 

0230 ir< ALFUe>EQ.Qi Qg TO 8 800 

0239 Include •sYtcsoo»33CAHSAVE»tNC 

0240 • QFEN(UNn:jUN4ME«lt3AOillSUBAL;TMPll!jP0OHf<UNP0RMATTEDt, 

t 1 TYPE«'U»'KN0UN'fERR«9999) 

-A2#l • — «2XTEill.Cl - 

0242 • URtTE(l)C2 

0243 ♦ .HRiTElDCl— 

0244 • WRlTE(l)C4 

0249 f 0Rj^TEil)C9 _ 

0246 • CL0$E<UN1T«1) 

0247 • 00 Ta 9991 

0240 • 9999 TYPE 9990 

0249 • 9990 F0RHaT(1X,«0PEN FAILURE ON C3OO«13QL08AL(TMP*«N0 RESTARTi) 

0290 • 9991 continue 

0291 8888 CALL CL08E(6) 

0292 CALL CL0SE(9) 

0291 HALL CtASfiUQl 

0294 CALL SETEF(90} 

0299 .CALL DfTAQH 

0296 . STOP 

0297 . . END . 


! • 


f 

<!. 

f 












IMIRSC - INNREC ♦ 1 



MUTE to UN FILE HU 
NTYPE1 DOTS • ARIND. OUBEL, 
TOIS CORRESPONDING TO 
SUBCLASS ISUB 


QUERY USER MITN: 

AVAILABLE REPORTS 
^ BRIEF aOSTER LABELING 
REPORT 

2. DETAILED NEAI^ST NEIGHBOR 
REPORT 


USER INPUT FOR REPORT 


BLANK, 1, OR 2 


MAJORITY 


CATEGORY FOR KNN 


DISCARD Kth DOT IN 
ORDERED ARRAY TDIS(NDOTS) 


USER INPUT: 
OUTPUT DEVICE 


1 OR B (Tl)« 

K 

.3(LP) 


NEULABdSUB} * 
MAJORITY CATEGORY 


m 





























mTR4M 
KOfOAT.f 
jaoi . 
0008 
0008 
0004 
0009 
0006 • 
0007 • 


UPLUt 


LUa io 184184-^ ._.19*JU»TT PkU 40 

...Jiilaouuaf BOafiAT(NiAR 4 N&iOOTPAX 40 PUO) . / 

IMPLICIT iNTEOiM (A*M)t(M8) 

am MHI(0)iM(74)«08TfiAl«O.UPOOT<eHANVC*NAeOtALA08L>X 
rial AMN.BUPCLH»T0tS*rLAR8L 

UtCLUDi .lay I taoo • sjcahscrmOnVInc * 

tNCLUDl *8VICS00«33 CAHSPARam. |nC* 

.PilAMlTER M4XCATt6O«HA7aM8f00iHA)ieHN>4|NP|xnO6|NLtNnt7»MAXPLn«SO 
i I MAXVa it * ND0T8«2O9 . DLSK I P«10 1 088K 1 P*t 0 * M AX AC0«6* MmCe>4» 
2NI8PHO«6»NOOIH])tlO 

eOUlVALENCE (Cl» ACOAT8) » (C7« lOgC) , (CS*PFLAG)* (C4»TxD* CC9*0t8KlD) 
INTIOER Cl(4A0)«C2(294)ie3(71).C4(348}|C9(629> 

> ItilBOER AC&ATE4SU0CAT«&U0P2 P|Ca!KNTiC.ATTH 
BYTE CRNVECfNOCHAN.NPSUBtOrTCATiDOTCLU 

C0HM0U/CRM1/ACDATE ( 2*MAXACC ) i C hN VEC ( M AXCHN . MAX ACC) . N 0CHAM* N0SU4 • 
l8UBeAT(^Ax8UB)i8UBP8P(MAX8uB)iCATKMTCMAXeAT)«CATTHfHAXCAT)*4PDP« 
2N0DUi N0TH« O0TCAT ( Nf)0T8 ) i DOrCLU ( NP0T8 ) 

. INIlfiER AOATES«$UNA2*.AMAL$TiPLPUAYiD0TOAX,PDATEl«TOATEt 
integer PDATE2.T9ATE2,PDATE3«TQATE3ieATNAH*Dt8NlD«PAMD0M«6RtO 
BYTE DELPLQ|N0ACQtS0IL6RiSUNEL«ASTART»NTVPEl.AtP«ALP0 
BYTE PCtCT,PCTCTP»VAR,VAR0,OLApEl,TYPE 

C0MM0N/CPM?/I866«OSLrLG(N0AC9*ADATE8(2»MAXACO)*80lL8R(NAXACD). 
l8UNEl(MAXAC0)tSUNA7(»'AXAC0)f tPbATE(2)»ANAL8T(9)*rL00AV(2)* 
2O0TOAY(2)|NSTARTiNTYPEi|PPATEt(2)fTDATElt2)|POATB2(2)«TOATE2(2)« 
3PDATE3(p).TOATE3(2)*NMCAT,CATNA^*(('AXeAT),ALPfHAXeAT>«ALP0* 

4 PCTCT(HAXCAT)|PCTCT0.VAR(MAXCAT)fVARP 

integer BrLA61fErLAC?iErLAG3iEPLA64iEFLAQ9(UPLA61*UFLAG2*UrLAGX, 
1UFLAG4 

INTEGER PFLAQ»nSXMwT 

C0MHPN/C0M3/PFLA6*n$KMMT,ErLAGi,E7LAQ2tErLAQ3tEFLAQ4*EPLAG9tUFLAGl 

lfUFLAG2.UFLAG3»UPLA64»NEWLAB(MA>‘Sta) 

integer TXl,TYl(TXP|TY2»ACrtSP.6,e.OTWIND,D0TARY|QMlN,GMAX»FUU 
INTEGER SPwtND,CLA4'NDtCUik>-3 

C0MMFN/cAM4/TXl|TYlfTX2»TY2iIXi»IYliIX2itV2iACniSPf2)*m(4)»G(4), 

lR(4)*CiTwlK9C9»N0nTMr)tSPWI»Q(9,N08PWDMHN!NDC4||NUhD0Ti 

2O0TARY(NDeT8)*GHtN*6»«AX»FUL(2i7)«CLAWND(8)iCLUWNO(8) 

C0MMPN/C0M9/OI$KIO.RANn0H(MDPTR)«GRlO(MDETS),DLARELCNDPTS)« 

1TYPE<ND0TS),RECLRC 

C 0 HM 0 N /H6T/PUFOAT(92in.9UFcLM(36)iTOI8(NM0T8t* 

1 CHANVC(HAXCM'*<|HAXAf!O)|NACQ(»'tXACC)|ALA9EL(ND0TS),Xt 

2 CLLAB(HAX8UP)f tLAeFLCMAXrAr).FLA9EL(NAXCAT)*ARlN9(NO0TS) 
OIHENSI0N ARAND(NOPTS)|D'*TnAT(16.ND0T8) 

initialise o0TnAT array 

- lORl „ 

00 100 jnalflA 

P0TDAT(JO»IO)«O 

CONTINUE 

|F(IO.EO.N)60 T0 1)0 

io«ir*i 

.GO. TP 120 


PAEfi 40 


iOtSillli . l9«uUN*77 


MOi XX 


PIRTRAK tV*PUU9 
ftO0OAT«PTN 





c 

0094 

uo 

0039 


0036 


0037 

c 


c 


c 

0036 


0039 


0040 


0041 


0042 

333 

0043 


0044 

334 

0049 

40 

0046 


0047 


0048 


0049 

10 

0050 

X5 

0091 


0052 


0093 

20 

0094 


0055 


0096 


0097 

30 

005P 


0059 


0060 


0061 


0062 

50 

0063 


0064 


0065 

Ul 

0066 


0067 


0066 


0069 


0070 

14« 

0071 

13c 

0072 

200 

0073 


0074 


0075 

210 

0076 


0077 


0076 


0079 

60 

0060 

90 

0061 

C 


V0*«04 _ 

/TR|Bl0CK8/MR 

ASSIGN AVlLWriNCfORT w. :V 

oru8»0- '•-* ^ ■ ■':'■• 

U0>»«7 

IN«1 

0REN(uNtT»7»NAMfcatsviCSOO*l3nRT8;THPt^TyPEa40^0f, 

ACCgGS* * r> IRECT S R6C0RQ8 1 76*^3 j MA«REC«ND0T8K 

CHECK P0R aASSiriCATIRH AND OaU 8A8E ACQ; itATCH 

EPIX*0 ■■ ■ 

NN«1 

Jfl .. 

WRtTE(5,333)(ACIMTE(2*K).K«i«KAXACC)« 

(APATESC?»K),K«l,HAXACn} 

F0PmAT< 1X» UCOATF AI}ATFS«» /»lX(4l6(4X«At6/) 
WRItE( 5,334> oruAC 
r0RMATCiy«'OFLA6St3/) 

00 l9 Iai«>^AXACD 

ir(ACDATF<2iJ),Ef3,ft) 8?» T0 2o 

|F<ACD*T?<2.J),N'*.ADATeS(2iI)) C0 T0 10 

GP T<3 30 

C0NTlN<-)g 

OFIaGsI 

GL«SE(^NIT«7) 

RETURN' 

2F!X«2FIX*1 

IF(j.eO,yAXACC) r.fc TC 50 
J«W«1 
G0 J2 40 
^ACQ<N*«)sI 

IF< j.FO.^’AXASC) 'ii T7 50 
30 T" 40 

IF<?F|X,cq,4) r,v T(* 15 
«FIX-0 

4RtTE(5«lll) QFL4ii«(^UCU(I )>iai«4} 
F0R«ATav«'DFtA(i ArTCH.AMO MCQ» , I3.4(2X. H)/) 

K«1 

D0 l30 Jal«6 
00 140 I«l«4 
CHAnVC(I.J)«0 
C0^ITI^U6 
C0NTtMUg 

00 210 1T«1*MAXC>4K 
KK«NACC(K) 

CHA^|VCUI*KK)•eH^•VFC(^*•0 
C0NTINUE 

IFCK.EO.mAXACC) TP 40 
KsK«l 
30 TP 203 
C0NTl\UE 
lORgCtARANOUN) 

«BAD(1 UKMORFC) (OVF’'0TC 1 ,1 > , lal.S?) 




9'b 




riRTUN 1 V«PlU&. 
RD90AT.FTN 

C-. 

• C 


y08«04. lOtaiiM . .dt*«lUN«77 

/TR|SlPCK8/WR 

READ. O0T Data. VIC tflBS PBap.JUfffR DUfOer 


PA06 it 


Q 


ODt2 


JNfl . . 

ooas 

190 

08 70 KDIal.MAXCNN 

0084 


KKKaNACQtJNl ... 

0089 


tF(CHANVe(KN«KRK).6Q.O) 88 TP 7C 

0088 


. JJ9(KlCK«ll«0*9t1XNffi} 

0087 


NCHAM*KNM*(Jlii«lt 

0080 


DfTOAT ( NCHANa 1086C ) •9UFDPT ( U J» 1 ) 

0809 

70 

COPTlNUe 

0890 


iFtj^'.OQ.HAXAC*:) OP T 0 or 

0891 


JN«jN«l 

0892 


08 TP 190 

0093 

80 

1F(1*»‘.P0'.N) 80 T0 160 

0094 



0099 


80 TO 90 

0096 

160 

CLesE(0NlT«7) 

0097 


CAU CtOSEClO) 

0098 


return 

0099 


ENO 


! I 


i \ 




&X j'jA- 


14.1 80B80DTHIB 


A flow diwrt" iof 'this subroutlJM ''is «oi 


IB 

OFPOCtt QUAUTV 


• •• 


.14.2 SUBRODTIMB HDdilM l 


PeKTil4N iVaKiUS m«U. . iOiailU) liajUN*77 PkH 1# 

MOCLMN«rri« /Tltl9LtCKS/Mft 

UOl. SUBaSuUUUiflaK^ISUlAAiiN«JIlAHK«eHAN) 

0008 IHPLtelT INTSOPR (A*tO< ('**!) 

0003 BYTE HHUt)tHI74)d)0mT*BUtCOT«eH*NYeiNAeO*AUABBLiX 

0004 real AHNiaureUMtTDtStfLABEI. 

0009 iNCLUOf «8VtC3flO.SSCAH8CePO»>UNe* 

0006 • INCLUDE *8V|C300 iS 3 CAHSPARah« 1 nC* 

0007 ♦ flIiHaTES_HAltCAT»4fliftA*5UB*AO#»*AXCHN«4,HP|K«406.NU|N»ll7»HAXPL')«90 

• l«NAXValiiNO0T8«8OO.OLS«(IP»lOiDS8NlP«lO«HAXACO«6|NAXACCMi 

• aNfSPHElEiMBOTwOmO.. 

0008 • equivalence (CltACOATEt|(C9itSE0l*(CS|PrLAQ)«(C4|TXl)*(C4*O18K10) 

0009 • integer Cl(469)«C8(896)>e3(7t).C4(S4a)«C9(689l 

• c* 


0010 

0011 

0012 


integer ACOATEi SUOCAT • SUGP^P i c A T kNTi CATTH 
BYTE CMNVECtNBCHAN.NESIlBiO^'teATiDfTeLU 

CeMN‘'N/C0Hl/ACDATE(^•NAXACC)tCH^VEC<MAXCHN•MAXACC)•NeCMAN(^!8SUR« 

lSunCATCHAXSUP)«SUBPEP(MAXS)iBttrATKNT(NAXCAT)«CATTH(HAXCAT)«N0OR* 

2NOOUiNPTHtD0TCAT<NO0TS)aO0TCLU(ND0T8) 


0013 

0014 
0019 
0316 
0017 


IN^EC-EN ADATESiSUNA2,ANALST«rLODAY.D0TOAV,PDATEl«T|)ATEl 
INTEGER P0ATP2«TnATE?«R0AT6S.TrATES«eATNAM,0t8K|D«NANDPN«GPlD 
BYTE DElPLQi nBACQi S 0I LGRi 8UNEL* asTaBTi NTYPE lt ALPi ALP0 
byte PCTCT.PCTCT0, VAR, VAR0,OLAnfcL. type 

C0HH3Af/cON2/ISEQ,OPLrLG*P0ACQ»AOATE8(2,MAXACO),8PlL6B(MAXACD), 
iSUNELCHAXACDttPUNAZCPAXAGO), tMnATE(2}*ANALSTC9)«FL00AY(8), 
208T0AV(2).NSTART,NTYPEl,PD*TEl(2)iTDAtElf2),P0ATE2(2),TOATE2(2), 
3P0ATE3(2)«TDATE3(2),^0CAT,CATf«A»*(NAXeAn.ALP(HAXrAT)iALPP* 

4 oCTCT<**A»CAT),RCTCT2,WaR(NAXCAT>,VAR0 


0016 

0019 

0020 


integer EFLAQl,EFLAC2,EriAG3,ErL464,GrLAG9,urLA61,i|fLAQ2,UFLA6.T, 
1UFLAG4 

integer PFLAG,nSKH'T 

C0Mf4Pv/eRM3/PFLA3,'^SKHUT,ErLA6)*EPLA62,EPLA63*ErLA44*ErLAG4,UrLAGl 

l»UFLAC2,UPLAG3,UFLAQ4,rEWLtB(NAK8bR) 


0021 

0072 

0073 


0024 

0029 


0026 

0027 

0920 

0029 

0030 

0031 

0032 

0033 

0034 
0039 
0036 


integer TXl,TYl,TX2,TY2,ACDlSP,O.e,DT41ND,D0TARV,6MlN*6HAX,FUL 
integer spwind,clawng,clun»d 

C0HMYN/c0H4/TXl,TVi,TX2,TV^^|Xl,IVl,|X2,lV2,ACOISPC2)»nU4»,G(4>. 

lB(4),tlTKlNO(9,N0nTwC),GP'41vDf9,NgSPWO),muiNfM4),NUHOPT, 

2D0TARYl\n0T8),GHtN,QNAV,PUL(2,7),eiAWND(9),CLUWND(<l) 

C0MM^M/cGM9/91SKtD*RA.Mr0M(^O0T$),GRIG(NOPT8)•DLABEL(ND?TS), 

1TYPE< «O0TS),REaRC 

C0>'M.''»; /H6T/4UFU7T(92,l),8UFeLM(.16),TOtS(Nr0T8t, 

1 CHA\vc(NAXCM’4,KA4Aeb)«‘4ArOC^AVACC),ALA9ELCNOPTG), 

2 X,CLLAB(*<AX8JB),tLAPEL(NAXeAT),FLAPEL(N0PT4),ARI*lD(Nn0rS) 
Dl"6NSl0W A»*nji6.PAXSU«),CRA''<16» 

LU>i«9 

0PEN(ii»IT«9,NAHF«'STIt3OO,l3CLVSTAT8,THP»,TVPe«»0LO*» 

1 ACCESS**f)lPEGT',f<EC6PnSli!E«3AfWAVREC«NAXSUR) 

IT‘^CMN*0 

RE4r(LUN'ISU«l (^UFCL'*(l),lRli36) 

00 10 J>1,HAXACC 

00 E'' Kai,MAXCM^ 

lF(CRNVEC(K,J)’,en,''> 6P 70 2G 

NCRA^aR*4#CJ*U 

ITFcR».«IT0CNN#1 

CHAn( lT0CHA.)aNGHAF 




FflRmN lV»FtU8 V02«04 tOlSliSO l9«uUN»77 I 

RDCLMNiFTN /TRlBL^CKf/NR 

0057 JJfC'ipHAKMiD^an , , . 

0098 lF(jJ,66.a.ei»JJ.Cr.l6«8'}.JW.6B.24) JJ«jJ*(JJ/0) 

0039 tCL8*lSUB 

0040 AHN<KCHAN,tCL8)«sUFCI.H(Jj) 

0041 20 C0*'TlMUe 

004? ID CmiNUf 

0043 CLFSB(U»tlT«9) 

0044 RSTU^N 

0045 ENO 



14.3 SUBROOTINF CLABBL 


F0RTRAN IV* 
CLA»£L«rTN 
0001 . 

0002 

0003 

0004 

0005 

0006 
0007 


0008 

0009 

0010 
0011 
0013 


C* 


C» 


voa*04 10131146 . .^•jUN-7? . ,PA86 W 

/TR I BlPCKS/W*^ 

$UeR5uTV46 CLAO£UlSUaiN|AHN,O0T6AT«NCAT«ARANOi 
1 KNK,IT0CHN,A5AT) 

IHPlICIT INTF5QFR <A-H),(3.J) . 

byte HMS ( 6 ) , U ( 74 ) * D3T0AT , B^PnOT « CHANVC* NACQ* ALABEL* A 
I^AL A^N • BUPCLMi TD I $* PLABEU f RUNAM6 
INCLUDE •SVIC3OO.3]CAf1SCPR0N'.lNC* 
imUDfc. •SYIC300 j33CA{1SPARaK'iInC»_ 

parameter MAXCATa6n«MAXSUBB60*MAVCHNa4«NMlVal96*N|.lNm7»NAXPl.DB50 
liHAXVsll,MO0TSa2O9.DLSKIPalO|DSSKtPalO,MAXACPa6«HAXACCa4* 
2N0SPWO*6*N0OTWDalO 

equivalence (CliAC:}ATE)»(C7«tSEG)«(CS,PP|.A6)(CC4»TXl)«(C5,0ISKTr) 
iNTECeR C1(469),C3(256)*C3(71).C4(34A),CS(629) 

INTERER ACDATE.Sl.lBrAT,5UBP'>lP,CATX^T#CATT^ 

BYTE CNKV6C»NeCHAN.NPS'JB|DfllTCAT»02TCLU 

C6yM?M/C?Mi/ACDATE(2.MAXACC)«CM'«VEC(MAXCHN*MAXACC)*N0CHAN,N0SU‘). 
ISUBCAT (HAXSU9) « SUtfP^P ( '^UXSiJB) * CATKNT(MAXCAT) iCATTH(HAXCAT) « NPD 
2N0DU»vPTH,P0TCAT(Nr«TS)|O0TCLU(‘^DeTS) 


OCli 

0014 

0015 
0C16 
0017 


IRTE6ER ADATES,SUNA2.4’iALST,PLOBAY.03TDAV,POATEliTOATEl 
integer PD«.TF2,TOATE2|POATE3iTrATE3»CATNAH.OlSKIO,RANO0M#GPIO 
BYTE OELPLftiN'0ACOi40IL3R,S;iNEL,‘\START,MTVPEliALP»ALPB 
BYTE prTCT,PCTrTP,VAP,VAR<?,DLABEL#TYP£ 

C0‘imP\/cC!M?/1SPGiDPLPL'5i''0aCO#aOaTES(2,MAXACO)«S0|l6R(MAXaCO)» 
iSU.MgLc -'AXACDl.S'JVAFlr AXACD5, IMnATE(2>» ANAlST( 5)»FLD0AY(2)» 
2O0TOAY(2)inSTART,NTYPbl,PDftTFl(2),TDATEl(2),PDATE2(2),TDATE2<2), 
3RDATE3(2).TDA’Cj(2).^'0rAT,rAT\4K(K4XCAT),ALP<MAXCAT)#ALRB» 

4 PCTCT(maxCAT) iPCTCTlS, VAfi(MAXCAT),VAB« 


r* 


0C16 

0319 

0023 


0021 

0022 

002^ 


03?< 


0025 


integer fcFUA6l,trLA&2,EPLAP3,6ru464,EFLAQ5.UrLAQl,uPl.AG2»urLAG», 

IlTLAGa 

integer PFLAQinSKM*'T 

C0MMev/ceh3/PFLAR»3S‘<^AT,erLAGl*PFLAG2,EFLAG3.EFLAG4iEFLAG5,l)FLAGj 

liOFLAi;2,UFLAC3,UFLAG4,''EWl.Aa(^AX?L») 

INTfppT TX1,TY1,TX?,TY2, 4C'ISP,G,B,DTwING,P0TARV»GmIN,6HAX,FUL 
INTEGcB Sp-;IM},CLA 

C« 'Mt"g/C^M4/TXl ,TY1 ,^X2|TY-3, IXi.iYl# IX?, IY2,ACniSP(2>,IIl<4),G(«), 
1B(4) ,nT'.lN-i(5, 'f^nr-D ID (5, iv^SPWD), IMWINT)(4),NIIMO0T» 

^OiflTASy (nDSTS) , TMlN,tiMAX,F|ji (2»7) ,CuAVND( 8) .CLUWNfllO) 

CF'^i>' A/ci’'M5/niSKID.RA O^TR) ,GRlDtNDi3TS),DLABEL(NDfTS), 

ITYPE(\D;:TS),REGL!*C 

/MGT/a'jriV»T (52,:),dUFrUM(36),TDlS(NR0TS>, 

1 CkA „VC<MAXChN,*'AxAril) ,MA.'a(MAXACC)| ALABEL(NO0TS), 

2 X,ClLa8(maXSU 3) » ILAaEL(M'.XCAT).FLABEL(MAXCAT)» A«INO(ND0TB) 
DI“E?'.'SI0^’ ABA.^CI 'DPTSIiD 'TrAT(t6,ND0TS),AMN<16»KAXSUB) 

OIMg'JSl0N 9ljNAMij(4,<il ) , ACAT < vAxc AT) 

HATA SL'NANG /,b57,'.*ii61i.n6.'!t«'.064.«859.,862,,664,'.866, 

1 ,061, ,664, ,666, ,'^6P, «863, ,66ft, ,860, ,570, ,065, ,069, ,870, ,872# 

2 ,06a, ,87l, ,873, ,R75, ,071, ,e74,'.f 76, ,87B,',875, ,870, ,879, ,881, 

3 ,87s, .881, ,863, ,-e4, ,HP2, ,000, ,687, ,886,, 887«, 090,, 891,. 092, 

4 ,80?, ,894, ,896, ,»-97, , 697. ,099, ',901,, 902, ,902., 904,, 906,. 907, 

5 ,9P?, .9lO, ,911, ,H2, .914, ,91ft, .917, ,915, .921. ,923, ,924, .925, 

6 . 92b, 929. ,930. .V31, . 935, ,937, ',937,, 930.. 943,. 944,, 949,, 946, 

7 ,951, ,952. .953,, 954, .960,, 96J,,. 961,, 962,, 969^, 970,, 970,, 971, 

8 .979, .970, .980, ,vSO, ,959, ,909, ,990, ,990, 1,000,1.000,1', 000,1. 100, 



0C26 

0027 

0026 


t 


f 0RTR4N lV«IIUJiJt02«04 1 . ilUl J iA lUjllNi?? 

eiABBL.PTN /TRiRlBCKS/WR 

9 1.039, 1.034*1. Q»0«1.048il,047»i*047«l,044tl*OA 

. L ^«A7« . 1* 07Ai 1, 071a 1* Q 74 * U0H* i i Of 1 » 1 « 090 1 i • 00 

2 1.104.1. 104,1, 128*1, 124*1, 182*1. 120*1.140«1.14 

3 1«164.1, 161*1,198*1*199*1. I88ii«l90il*177*i. 17 

4 1.198. 1.199*1. 239*1, 223, 1,219*1.216*1, 299*1, 24 
. J. l*2ftO4l.271*1.286*U2Al«l*lO7Ai*297il*291«i#20 

6 1 .318. 1. 313* 1. 368*1 .393* 1 . 347 # 1.341* 1 .390*1 . 30 

.7 1.432.1.417*1. 404*1. 402*), 469*1*492*1.44S*1,43 

6 1 . 479 . 1,470. 1.990, 1.929*1. 914*1.908*1, 994*1.97 

9 1.442*1. 617*1, 603*1. 991*1, 49S«1. 669*1, 691*1, 63 

1 1.701, 1,467,1, 807*1, 773.1. 79«*1,740*1, 871*1. 83 

2 1.940*1. 899*1.17B*l*aifl*2*9l6*i;971«l. 947*1. 92 

3 2.021.1.997.2.187*2.131*2,102*2,076*2,289*2,22 

4 2.393.2,S29*2.2e9,2.299,?.9li*2.439*2,S99.2.39 

3 2.913. 2. 471, 2, 708, 2. 493. 2.643, 2. 597, 2. 993.2. 84 

4 3. 139, 3. 019,2.992*2. 693. 3. 342. 3. 207*3. 139.3. 06 

7 3.344,3,269.3.852.3,679,3,983.3.497,4,163.3,96 

8 A*S3D«4*.297*.4.l7fl.4.06U4.967«4«694*4.991.4,41 

9 4, 991. 4. 838, 6. 0«A, 5. 722, 9, 927«5. 346, 6. 480. 4. 42 

1 7, 832, 7, 269*7, 002, 4, 744, 9 , 094. 8, 413, 8, 063*7, 74 

2 9. 449 . 9, 052. 13. 019. 11 .901. 11. 329. 10. 816. 16,413 

3 13.401/ 

0029 KST0RE*K4N 

0030 INtXiO 

0031 Hal 

0032 40 H4aA«>4N0(H) 

0033 ICL$alSU4 

0034 TOIS(rt>«Q.O 

0039 tCHANal 

0034 98 10 Jai.HAXACC 

0337 KSUN«4ACQ(J) 

0038 irCKSuN.SQ.O) 00.74 200 

0039 4U^'a <<'JNEL(KSUN1 

0043 ISt«*89-SUN*l 

0041 2Cn 00 23 Kai.KAXCHN 

0342 IF<CHmVEC<K,J),c: 0,0) C8 2r 

0043 \CMAMaK*^AXACC«(J-l) 

0044 lNPX*(K«l)*(J»l)*rAXACC 

0045 

0346 tNCX«ir<iDX*tND 

0047 ABl8YTE(INnX,0<*TDAT) 

0049 TOlS(H)«TOIS(h)*_ 

1 ( AOS ( a8N ( NCHAN , I TLS ) •FLO A T ( A ) ) } •SUNANQ ( K . 1 $U*4 ) 

0049 IF<lCH*N',EO,IT0CwN) 00 T« 30 

0050 ICHANB1CHAH41 

0051 20 continue 

0052 10 CONTINUE 

0053 30 IF<8.gO,NJ 60 Tfci..90 _ 

0054 NaH*l 

0C55 60 T"' 40 

0056 50- C8NTINUB 

C 

r. S0»T distance arpay tpis 


M00 22 


1 

•9204 

ii 

022* 

1*O30* 

1.039* 

1 

*084* 

1* 

862* 

1*061* 

1.060* 

1 

4 O 9 O 1 

i. 

O09* 

ifUlf 

1*107* 

1 

•140* 

1* 

142* 

1.140* 

1*137* 

1 

• 177* 

i* 

174* 

1*208* 

1*201* 

1 

.209* 

i. 

246* 

1*242* 

1*236* 

1 

*291« 

i# 

206« 

i*336* 

1*324* 

1 

*398* 

i* 

304* 

1*577* 

1,370. 

1 

,443* 

t* 

439* 

1*»08* 

1*469* 

1 

,994* 

i. 

971* 

1*999* 

1.948, 

1 

*651* 

1* 

637* 

1*748, 

1.717* 

1 

,871* 

1. 

834* 

1.015* 

1.797, 

1 

.947, 

1. 

929* 

2.097* 

2.047* 

2 

.289* 

2 . 

223* 

2*191* 

2*161* 

2 

*399* 

2. 

390, 

2,642* 

2,957* 

2 

.993* 

2, 

846. 

2.789* 

2 . 737 . 

3 

.139. 

3. 

069* 

3*980* 

3,426. 

4 

.163. 

3. 

961* 

3.099* 

3.792, 

4 

.991. 

4. 

419* 

5 * 474 , 

9,156, 

6 

.680. 

6. 

429* 

6,190, 

5 . 973 . 

8 

.063* 

7, 

749, 

10.759 

*9,893 


816.16,413*14.867,14.089. 


WRITF<5,9876) (ARIMDI I ) , l»l* V ) 


o 


FORTRAN 1V«PIU8 
CLAdEUiFTN 


C' 


0097 

0050 

0059 


OOOO 

OOAl 


0002 

OOOJ 

0C64 

0005 

0066 

0067 

0060 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 


0079 

OOOu 

OOOl 


0302 

00«3 

0004 

0005 
0066 
0087 


9576 

C 

9675 

C 

C 

UO 

C 

C 

C 

C 


60 


80 

70 

C 

li’ 


ItfO 

c 

9874 

C 

9873 

C 

C 

C 

C 

C 

170 

C 

C 

C 

130 

201 

150 


VOtftfiO 10131146 t»««tu(4«77 

/TRlOLiilCKS/WR 

rftRHAT«lX,URlN0»,2X.Ul3/> 
WRITE(5(9e75) fTniSd ) 1 
raBMAT<lX»*T0n S2X.10F7 i2/) 

CAUL AL85RT<!CLS.T0|S.N.AR!N0» 
vtRtT6(5»9876} (AetNOU}*l«li\) 
WR1TP(5,9875) (Tnl$( I) , 

JF(KNn iEQi 1) FU6EI.(NCaT)» 1*0 
tFlKRN ,EOi 1) C>9* TO 201 


FA86 83 




C8'*6'T IARELS C'’NR6SP0N»)lNa T?1 LI DISTANCP FOR EACH OPT 
iNtrUtliE L48PL C»UNT ARRAY 

DO 60 IL«1iNCAT 
tLAaLL<lU«C 
C9MT1\U6 
33 70 J«l,NCAT 

00 80 MNBifKMN 

AA«ART^<D(NM) 

IF(AnAT(J) 

TLAPFL<J)«ILA3eL 
C6NTlKUe 
C0»’Tl\Ug 

WR1tR(5,i1?) KN»j 

F3Ry*T<ly. *KMN, 

76 190 l»l.NCAT 
FL*4El(I)«FL4AT( 

C3^Tl^UE 

*IRITC-(5,9a74) <A 
F8 ^J,,at( 1X, *ACAT 
‘^RITE(5,0873) (F 
F»9«AT<1X, •FUA'^L 
CAI L ALS^iiTUCLS 
^R1TU(!>*<»874) (A 
WRlT‘t(5,0873) (F 


nLAjet(AA))GF T0 60 
< J)*l 


, ULAB5L( l»» l*l.F*CAT) 
!LA;*FL'.t3i2(2x,l3)/) 

ILA<Et(I>) 

''AT(n.Isl.KCAT) 

lAHHUU). I»1.>-CATJ 
•|2X,lOFs,?/> 
,FLAWEL»^C''T.ACAT) 
-:AT(t).Isl.i'<CAT) 

i.affl(I),1«1,acat) 


rp'i) vAJkRITY V^Tt CATEGORY 

IF<FLA06L(NCAT),cq‘,FLAB6'. (vCaT-D) GP T0 130 
CLLaS{IClS)s*CAT(NCaT) 

G8 T'' 15*1 
CASfe ^F TIE.RfcT 

G0 Tf in 

CLI AR(lCLS)*'^LA8CL(At^l 'tD(l)) 

K^|^•KST0ag 

R6Ti;'?‘, 

FNO 


/O/ 



14.4 SOBROOTIMB ALSORT i 


f0RTRAN 

tV«PLU8 V02*04 10132121 i»«jUN*77 PAOE 27 

ALSai^T, 

ftn 

/TR|«lPCKS/WB 

0001 


SUenOuT t Nt ALS0RT ( t SU 8 1 S'JRD 1 S » Ml LAOEU 


V 

C 

THIS SUBRAUTtNe STAijLE $(riiTS DISTANCES IN INCREASING eRD*^R 


c 

RY interchange 

0002 

W 

implicit IMTPGeP (A»H),<P«?) 

0003 


REAL SUMDlSiSAVtl 

0004 


Include •syicsoo.sscamsparak.inc* 

000$ • 


parameter MAXCATa6n|HAXSUb«6fifMAXCHN«4|NPiyal06|NLlNMll7iMA)(PLn«5C 

• 


l«HAXVBlliNP0TSB2O«.DLSKtPalO,DSSK|P«lOiHAXACO«6|MAxACC«4i 

• 


2N0SPIm:)s6*N«<DTWO«1C 

0006 


OI»*ENSlt»N! LARELCN.CPTSI 

0007 


OI9£NSI0» SUMDlS(NDaTS) 


c 

WRITE(5,9876) 

OOCd 

9076 

F««'«AT<1Xi *ALSPRT»/) 

0009 


TP(M.lT.2) RETUF'- 

OOlO 


D0 20 lt2iM 

0011 


00 10 J*lil 

0C12 


iF<sUMDii<n.QE,?Lv[>is(j)) cr rg lo 

PC13 


SAVEl«SU“DlS(n 

0014 


S4W62«LAREL(1) 

0015 


su‘*oistn*5b'"ciS(j) 

0016 


LA06L(I)«LARPL<U> 

0017 


SU»^0IS(J)«SA'/E1 

OOlS 


LARELI J)*SAV&2 

0019 

10 

C0NTI\'UF 

OO?^' 

20 

CZMTUiUE 

0071 


RET;j9\ 

0022 


PN2 
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PeRTRAN 1V*PLU$ V02«D4 t0t32l27 i»«WUM«77 

KNNPRM.PTN /Ti»|8L0CK8/R»» ' 

0001 . ..SuaROUTlME KNrtPR^(A) 

0008 implicit INTi;60R<A»8) 

0009 parameter LtNEOaS 

0004 include •SYtCSOOtSTCAHOCAMON.tNC* 


PAOE 89 


0009 

0006 


INCLUDE • 8 YIC 300 * 33 CAHSPARaM.ImC» 
parameter MA)(D4T«6r|HAy8U6«6AtMA)(CHN«4«NPlX«194tNLIN*ll7iMAXrLD«90 
liNAXV«U*NnflTS«8O9.OLSK|P«|.0lO8SKtR«tO«MAXACR«6*MAXACC«4i 


0007 

0008 


2N0SPUO«6tM?)OTViD«lO 

equivalence CCl«ACPATE)iIC?«l5EQ)»(C3»RFLAei*<C4»TXlMC9#0I8X!0» 
INTEQER C1(469)«C2(296)|C3(71)«C4(S48 )iC9(689} 


0009 

0010 
0011 


0012 

0013 

0014 

0015 

0016 


C* 


integer ACnATE,S0bCAT,SU9P<*P«CATXKT*CATTH 
BYTE CMvV6C|NidCM»K.NfSUQi03TCAT»0eTCUU 

Cl0MHRN/CRMl/ACUATE(2*HAXACr)«CHNVEC(MAXCMM(MAXACC)(NOCHAN«NeSUB« 

lSUaCAT<HAXSUB)»SU8PeP(MAXS'JO)#CATKNTIHAXCAT),CATTH(MAXCAT),N0OR| 

2N0OU,N^TM.OaTCAT<L-'eTS)in0TCLU(NO8TS) 

integer AOATGStSUN*2,ANALST,rLODAY*D«TDAY,POATFl»TOATEl 
integer PDATe2,T0AT6?|PfiATF3,Tt»ATE3|CATNAM,0tSKI0 , random, grid 

BYTE OELFLC»N0ACO.ReiLGR»S"NEL.NSTART*WTYP8liALP#ALPO 
byte PCTCT.PCTCT*, VAR, vara, OLAP fcl, TYPE 

C0mmPm/c0H?/1SE6,DclPLG,N 0\CO» ADATeS(2,MAXACn),80lL6R(HAXACD), 
ISUNBL(^aXACO),SUNA?(PavaCO), I^ n*Tfc(2),ANAL8T<5),PLD0AY(2», 
2D0TOAY(2)»-'START»NTYPfel,PC4TPlC2)»TOAT81(2)*POATE2C2),TOATe2<2>, 
3PpATE3<2>»TDATE3(2>,M0CATiCATK4>*{f AXCAT),ALPtMAXCAT>»ALPR, 

4 »CTCT<MA>CAT),PCtCTfc,VAp(MAXCAT).VARP 


0017 


integer tFLAril,6FLAa?,EFUA?',3,ErLAG4,BFLAG5*UrLA61,OFLA62,UFLAG3, 


0018 

0019 


IUFLARa 

INTEGEH PFLAG.GSKM' t 

/c0M3/PFLAG,«'SKMf'T,ErL4Ui,EFLA82,EFLA6'?»EFLAC4,EFLA65,«irLAGl 

1,UFLA32,ITlAG3,UPLaCi4,vE«L»M(MaXSLR> 


0020 

0021 

0022 


CC23 

0024 

0025 

0026 

0027 

0029 
0C29 

0030 

0031 

0032 
C033 

0034 

0035 
0936 
0337 

0036 


C* 

INTEGER TXl,TYl,TX2,Ty2,AC*'ISP,G,fc,DTW!NO,P0TARY»6-IN,GMAX,rUL 
iNTEGfeR SpwINt,CLAVNr,CLUW‘D 

C2MM’v/cPM4/T)(l,TYl,TX2,TY?,IXi,tVl,lX2,lV?,ACDlSK2),ni(4),G(4», 
lB(4),0TaND(5,-.itnT! t),3Pyi* L(5,NPSPW0), lPMlNPC4J,Ni«HD0T, 
2CaTARY(ND0TS^,GM|^,C^Ai(,^Ul (2» 7» i CLAWNPC A) , CLiJwNni A) 
CB^‘N7;./ceH5/^I3^IC.hA4P8H<.vOPT«;),GRI^(MD0TS),OLAPe^.^NDPTS), 

lTYPE(M0TS),RbCL'’t 

9YTE ^MS(0), .'<7«),rLl'LA0 
real CLUOIS 

Oli^fiNSle*' CL'.'Ntj^ (9) Y(N»'?TS,5‘),CL'JLAd<NO0TS,5'» 

1 CL0DlS<Nn(aT5,5),rHA\<l6) 

LUNall 

T1TlE«0 

IN^»EC*1 

lT»’CRN‘«a 

oe 703 d«l,f‘AXACr 

PE eOO K« 1 ,maxChm 
IF(CHkV 6CC<» J) ,t0,0> Q!' T2 600 
NCHAN«K*4»( J«l) 

ITOCHN’»lT0rH‘J*l 
CmAn( iTaCHNIaNGHAN 
BOO Ca^'TKUE 

700 !:(!^T^^UE 






■ . . Mi vU'u^J -iO • 

^ ^ . . -jV* • ’ ■ '*■ "■■ 


-ri' i ; '4. . ‘■^'.- ■■ ‘ " '-^ • V'2" »■ ^::'i >■ . h ■■?' ■ 


CtRt$AII tViffjLUl 
KNI«m«FTN 


.jm. 



0040 

0041 
. 0042 

0008 

"- ii. ■ 

0044 


0049 

0I4A, 

' ' , ■ »: ’* ... 

0047 

0040 

0049 

9 

0090 

oon 


0092 

0093 

0094 
0099 

10 

0096 

Cll 

u 

0097 


0090 

19 

0099 

0060 

0061 

0062 


0063 

20 

0064 

0069 

30 

0066 

0067 

40 

0068 

0069 

50 

0C70 

0071 

60 

0072 

C 

169 

0073 

0074 

70 

0075 

;2 

0076 

0077 

0078 

0079 

71 

0080 

190 

0061 

0062 

0063 

191 

0064 

72 

0069 

0006 

0067 

900 


1 

1 


iAiSiU? J ilihUillin 


pmn 


^ 


X '{■»■'(' . * 

y?' ” '''■- 


.-.-.'IS'jL 

•.% ■ *-i 
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/THilfeekt/MA 

Kfiil 

KfFaLiNtS 

Klltl - 

K8t«9 

CAU AS&tON aUtt»*8yit300ii3NN;TMH^1) . ^ 

OfFlNf rtu tU«l(HA88(^«7S8»U«NNM6l 
SIAO IWUM* tNItliCi. KNiUlSfi 

tPlKSl KNN) l(S8fK«ifi ' . . r- . 

ir (•488UB.88»Kr8l 88 T8 8 

KF21H88U8 

li»KFl*l 

l2«KFa*l 

.8810 

Of 10 Kali, 18 
KIClXKal 

KB AO ( lUN * K I C D 0TNMH ( 1 . KK ) . elUL A8 ( i • KK ) • CLUO t 8 ( I • KK) f 1 al« KNN I 

OfBTtKUfi 
CAU attach 

lF(A »(i8. 4 JUtoV.A ,ME. 9) CA T0 19 
IFCTITUE «eO. 1) 60 T0 1? 

CALL 0UTPUT(87«18) 

CAU tOATEUM.lD.IY) 

CAU TtMElHHS) 

TlTtEal 

yami u« 20 Lutu • I y I ( *4Hs ( j ) rm, 8 1 

r0FMATClX,9OX,»O*Ul»»12»»/M8,*/».12/iy#9OX.*TlH6r,OAl/) 

uRmaitSoi 

P0RmAT< 1X»*CLU?TFR NFAR54T Kgl6HF0R REPORT*//) 

HRlTE(12*40)lSE6.nAC0ATE(tiJ)«lai,2),Jal,PAXAeC)« 

(CHAN(l),lal.lT8rMN) 

F0RKAT(lX4.*SEQ*lEh>T IDO* * I4/lXi * AC0UIS1T1RMS>«S 
4(lXt |8, 13)/1X, 'CLUSTERING CwANAELSs*, 16(1X# 12)) 
»<RtTE(18(90)ND«KNN 

FORMATCiXf'NlinRbi; or TVPFI LaREUINO OOTSat, 

13/iy,*M*MPfiR 0F NEAREST NF1CHR2P8 USEOa*,lS/) 

NRlTEUStAO) 

r0PKAT(lX,2OX| •nearest NUGHrOR MSTaNCE/LABEL*/) 

WR1TE(12.199) KSl,K$2,Kfi,K)9 
F0PNAT(/lX,'FSl,v$2«,6X#t2t4X*I8/ 
lX*«KFl#KF2«,6X,I2,6Xf 12/) 
wRlTE(12,70)(n)ilaK$liK«8) 

F0PNAT(lX,«CLURTCR«,9Xtl9#lly*18,iiX,t2,UV,12,liX»I2/) 

KK«0 

DO 190 JaKPl,KF2 

MR1TE(12«71) (Jf ((CLU01S(I»KK}«CATNAM(CLULABC1«KK)))(1*KS1,KC2)) 
f0Pt*AT(/SXit2,8X.9(SX|P7.2«*/*.A8)) 

CONTINUE 

1P(nF2 (00, N0SUO) GO T0 S9 

1P(A (EG. 4 (BR, A .FQ. R) Ga TE 400 

NR1TE(A,72) 

P0RmAT(/*S E(X)lT,(n)ETURN(PA6E (F)0RNARO, 

9R page (S)tOENAYS >•) 

CAU 0UTRUT(7) 

READ(4i9Q0) n . 

F0RmAT(74A1) 


o 


u 


n 





r • 


mm 


mmmrnmm 


rniimmm 


FiRTRAN 

iVcPLUS 

V62>04 10132127 l! 

knnprn, 

ftn 

/TP|8l9CKS/UR 

0060 


CALL FR6NT|R»74» . 

0089 


1F(M(1)«E0,*XM 00 TiA 20'' 

0090 


1P1WU)*EQ.*4M 90 T0 309 

0091 


IFCW(l).EQ.*F*;e»tW(l).k9,* • 

0092 


IF(iil(i)»EO«'SM 90 T0 900 

0093 

400 

IF(KF2iEO.N0SU9) CP T0 60 

0094 


KfllKF?*! 

009$ 


KFOaKFOtLlNES 

0096 


IF<KF2iQT.N0SU6)KF2«N0Sgr» 

0097 


G0 TP 9 

0099 

35 

kRITE(12,79) 

0099 

79 

FgRhATC/lX.'PNn ?F RgPRRT*/) 

0100 


1F<A ,EQ. 4 ,0R, A ,60. 5) 60 

0101 


Q0 T* 191 

0102 

60 

KFlBl 

0103 


KP2«LTNE'5 

0104 


IF<'<F2i 6T,N6SU9) 4ri»N«ISn8 

0109 


G0 T'* 9 

0106 

500 . 

irrt<S 2 , 69 .KNN) 0^ T3 90 

0107 


KS1»<S241 

0106 


kS2sKs2*$ 

0109 


ir<4S2»6T,KN'J)'<S?«t<MM 

Olio 


GB TP ll 

0111 

9C 

KSlil 

0112 


■<S2i5 

01)3 


IF(kS?.GT,KI 40 K52«Kf.N 

0114 


GB T7 ll 

0115 

192 

if(«s? ,pcj, knm) qp Ta I'^i 

0116 


KSl»'<S2*l 

0117 


i<S 2 »'<S 2^5 

0l)« 


KF1«1 

0119 


Kr2s5 

0120 


1FCKF2 .r-T, >w’SUf') «f2«K‘*SUF 

0121 


IF(k92 ,?T. KS2*K''N 

0122 


titlf«o 

0123 


G2 T*’ •» 

0124 

203 

AiO 

0125 


CALL CL»<Sb(ll) 

0126 


RETl'Fn; 

0127 

30 n 

Atl 


19«JUN*77 


69 t0 460 


CALL CLJiSeai) 

‘^ETljS;. 

Gno 








>j 




■ ■ • 'O' 

1 ! ■* 

14*5 sPBHOorn gjgjffgpi 

A flow chart for this subroutino ia not availablo. 








14.6 SOBHOOTIME BRPCLO ' 


JJCffURAN |Vi 

RIRfRT.fTN 

1001 

ooot 

0009 

0004 

JOOOS. 1 
0006 
0007 

0000 2 

0009 

0010 

jooii s 

0012 
0013 


nvs V02«Q4 

/TR|BlOCKS/WR 
$l'B||0uT|N| BBreiUCUl(U2|U9) 
INBLICIT iNTEOERU-i) 
inui.EQiO)6B TO 1 
CAU RERBIITtUl) 

CBRTINUE 

irfUB*EQiO)60 T0 2 
CALL R6rORT(U2) 

CONTINUE 

irCUS.EOiOlOB T0 3 
CALL R6P0RTCU3) 

C0NTINUE 

RETURN 

END 


10117140 il»AU0«77. 


1 


ORtdmALPAG^ 

OF POOR QUALTrit 




14.7 soanoroniB 


14117190' U»'4U0«77 


l»A9i 9 


fiomN iv«nu9 voo*04 

M^tOTiFTN /rOiOLOCKS/tiO 

ooet sueoouTiNi repsmituu) 

0001 IMPLICIT tNT666PIA»i) 

0003 meal pe8*TltTl«rS 

0004 include *8VlC300«3)CAH8CPMeNilMC* 

0009 • include *8VICSQ0tSTCANSPAIlAN,|MC« 

0006 • PAMAHSTeM MAXCAT«60|MAX8Ue*40»MAKCNNt4«NPIXBt94fNLIN«117*NAXFLD«90 

liMAXVatl«NnOT6a2O9.OL8MIPBlO*OS8KtP«t0tNAXACD«6«MAXACCMf 
2NeSPWO«6fNADTND«10 

0007 • EOUIVaLEMCE <Cl«ACPATS)|CC9*tSCQl#fCS*MrLA0)tCC4*TXll«(C9*O18Kt0} 

0000 • INTEOEM Ci(449),C2C296l|C3c7l).C4(S40)*C9f4«0) 


0009 

0010 
0011 


0012 

0813 

0014 

0019 

0016 


0017 

0810 

0019 


C* 


C* 


C« 


INTEOEM AC0ATE«8UBrAT«SUMP''P»CATXKTiCATTM 
BYTE CMNVEr.^0CHAN.N9SUO*O:’TeAT*D8TCLU 

CeMMl*N/C0Nl/ACt)ATE(2*MAXACe)tCMNVEC(MAXCMN*NAXACC),N9CNAN,N0SUM. 

l8U0CAT(HAKSUM),8UBPFP(MAK8'i8tfCATKNTfMAXeAT)|CATTHCMAXCAT)tNi0Mf 

2N0DUiNPTM(g0TCATfNROTS)in0TCLU(NDOT8) 

INTEGEM ADATE8*8NNA2.ANAL8r,FLDOAT,O0TnAT«POATElfTOATSl 

INTEOEM POAT§2«TnATE7»PDATE3«TPATE3iCATNAM«OI8K|D*MANOBM«QMIO 
BYTE oElFLO*N0ACO*80ILGM*8"NEL»A8TaMTiNTYPE1iALP*AlP4 

BYTE PCTCT,PrTCTP»VAP,VAM0»OLA«ltL»TYPE 

C0MMPN/COHP/t8EQ«DPLFLG*N04CO*AOATE8(2*MAXACO)*8PlL8MfMAXAeOt» 

lSUNEUMAXAe0)*SUMAPfMAXAC0t«tMrATE<2t«ANAL8T(9)*FLDDAY(2I| 

20BTOAY(2)»^STAMT«KTYPEl|P04TElc2)«TDATEi(2)«POATE2(2)«TDATE2t2)» 

3PDATE3<2)*TOATE3f2)*K?CAT«CATAAMPAXCAT)iALP(MAXCAT)lALP0* 

4 PCTCrfMAYC«T)tPCTCTe,VAO(MAXCAT)iVAN0 

|NTEftE<« EFLAGl*EFLA62.EfLASJ»ErLAG4fEFLAQ9«UFLAGliUFUA62«UFLA6S« 
1UFLAG4 

integer PFLAGfOSKHiT 

CBHHAN/c0M3/PFLAG»nSKMNr«EFLA6i»EFLAG2fEFLA63«EFLAG4iErLA69»UFLA6l 

l»UrLAG^.UPLAM^*UPLA64,^•EWL*B(PAASLR) 


0020 

0021 

0022 


0023 

0024 
0029 
0826 
0027 
0020 

0029 

0030 

0031 

0032 

0033 

0034 
0039 

0036 

0037 
003B 
0039 


INTEGEP T)(i,TYt,TX*»,TY2|ACf'ISP,5.B,0T«IN0,D§TAPY»QMlN,r,MAX,rUL 
IniTEGEB SPw|MD«CLAwNO«CLUW .0 

C0MHCN/C9H4/TXl,TYlfTX2tTY*^.IXl*tyi» tX2iIY9(ACniSP(2)*IIl(«)*6(4)* 
lB(4),DTwlNn(9*N0nT<iDi«SPwi>D(9.NPSPUO)«lMwfNP(4)«NUMDPT« 
2OBTARr(Nn0r8t*GHtN.CMAXirULC2»7)fCLAUNPC8)iCl.UWNDU) 
C0HMCis/c8'M9/OISKfD«MANPBMC'O9T4)|6Pin(NO’'r8)iOLAMELCNO0T8}« 

1TVPE(nD?T 8),MECLPC 
niMENSl 0 N nArA(72).6N(4) 

BYTE T I M < 0 > , ODD ORIGINAL PAGE IS 

POOR QUALITY 

T2»NLI*i 
T3 >NPi X 
T2§T2»T3 
CALL TIhEITIh) 
rivoitoii) 

IS >1 

LStLLS 

CALL lOATEIHfl.OAY.YB) 

4 !r(Xl,NE.6)6P T0 9 

CALL CS6CPw(«U(PAQF«RLMi1> 

60 T? 4 

9 WRITFlXUillBI 




fMTIlAN tVvPbttt V0t»04 U*AU««7f f AW A 

.UNdTifTN /TAlMOAt/W 
OOAA WtTitNUviOOINIiOAVfW 

•OAt WITiCNUiiOilTIM 

OOAt A iMItTiCNuaOtl 

fitAS NAtTICKUiiOSItSM 

OOAA imiTICNU»te4M(AeDATIU|N).A«l(t>iKtl«l«AMAeei 

.OMl WITiCKUtiAflCHHVlC 

OOAA WtTf (KimIOAI ' 

00A7 DO 1 |•t8•WIU0 

OOAA WAOUUtlillHNfitNOfiOIOATA 

OOAt 00 a K>ifAAXAce 

0000 ANCNUO 

-A091. trueOATECt^KMAiOlOi TO I - 

oooa j«K«io«i 

OOU AH(KU0ATACJI«8itLQAIKI 

OOOA 8 CfATtNUi 
0000 K98U06ATCII 

OOOA eAT«eATNAH(K) 

0007 TiMMiAiPcn 

0000 P0S«T1/Ta 

0009 POO«POS«10A»0 

OOAO WlltTE(KU*m)t*eAT.0UiP0P(t)*7i9S|8N 

0001 tr(KU.NEiA)OA TO 1 

00A2 iruaT.uoioo to i 

OOAO loho^llo 

OOAA IPaO.OTtAASUDlOtWOUO 

OOAO is«tn 


OOAA 

00A7 

OOAO 

OOAO 

0070 

0071 

0072 
0070 
007A 
0070 
007A 
0077 
0070 

0079 
0000 
OOOl 

u 9 

ooao 

00S4 

0080 
0000 
0007 
0000 

t 0009 
i 0090 
i 0091 
f 

r 


U0tTECKu*U3> 

AOAOCAillllODO 

lffD9DtE0,*X*)89 T9 8 

tMl.OE.NiSUB)Qf TO 0 

00 TO 4 

CONTINUE 

NETUON 

NRITBCA.IOS) 

69 TO 0 
NRITB(A.IOA) 

Of TO 0 

rORNATCAAXftOATE • • I2*2( */* ( l?M92X«3( (••*«X)) 
reRNATC*0*49X**TlHE * tOAl./OaVi S( i X) ) 

PORHATf *0»?4Xi*0RIEr CtUOTER OEPOOTM 

rfRNATOOt.t CLUSTER REPORT fOR lEQMENT NUNROR •« |4/3AX« *••••« ) 
PORNAT(*0*ft ACQUISITION OaTECR) 'tAdEflXflOfAXII 
P9RNATf*0*,« CLUSTERING CHANNELS ••4|4t2|4X)l 

rfRHAT C 1 0 S S9X , * EERCENT AGE OP • « Ax « • GREEN • / * CLUOTEO • 1 4X « • C ATEG9RV • 
1«4X« •P0pULATt0N*«7X« '8E0NE»'T*«AX( t»iUMBSR« ) 

PORNAT(tG,lOX«A2«7Xf t7*4X«ri0.2«SX«4flX|l4)) 

FMNATO ERROR READING STATISTICS P|LE FOR CLUSTER REESRTt} 

roRNATC* END or PILE ON statistics fils for cluster report*} 

rORNATC* •» 
format f All 
rtRNATf*! *} 

FfRMATf*SCR TO CONTI NUE« X Tf ASORT REPORTS > *) 

END 


O 



14.7 SUBROUTINE REPORT 
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14.8 80BR00TIMS CLUSHM 


rtRTRAN tV*PLUS VQ!>.(I4 16118^2 U«AUQ«77 

8feP8PT»rTN /T«»|Bl8C«S/W« 

C nearest MEt6*4<|8l« CLUSTER RFP<^»tT 

OOOi SURRPuTtNE ClUSNN(UltU2«US) 

0008 IHPLICIT lLTP6EMU«i) 

0003 ir(Ut.6Q«0>6* Ttf 1 

0004 CALL PEpRTVCUi) 

0005 1 CBNTtNUE 

0006 IFtU?.EO»0)G« U 2 

0007 CALL REP«TM(U2) 

0008 2 C0MT1NUE 

0009 IF(US.EQ,0»GP 3 

0010 CALL REPHTrUUS) 

0011 3 COMlNUr 

0012 RETU»M 

0013 ER>' 


PAOE 8 


ORIGINAL PAGE IB 
OP POOR QUAUTV 
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14. S SPBBOUTIHB MPimi 


owgimai, pao, » 


P0RTI)AN t¥«PLUS V02«O4 16114103 11«AU6«77 RAOE lO 

REP0RT.FTN /TR|8lPCKS/MR 

0001 surrputine REPRTM(kU) 

0002 IHPLtClT INTPOPR (A*?) 

0003 include *SVtC300«33CAMSC3HPK.lF.<C* 

0004 • include *SYlC3n0i3lCAMSPAR«H,lMC« 

0005 • parameter HAXCATB6n(MAVSUB«60tMAxCHNB4,NPIX«196«NLlN*ll7«NAXPLn«50 

ltNAXV«lliNP0TS«2Q9.OLSKlPalO«DSSKIP«lOiHAXACD«6|HAXACC«4| 


0006 

0007 


2M0SPWn«6tN^OTM!)«lO 

equivalence (CltACnATE)|(C?,ISEQt((CS«PrLAe)t(C4|TXl)*(C9|0I$KIDt 
integer Cl(469)tC2(256)|C3(7l}.C4(34P),C9(629) 


C» 


0008 

0009 

0010 


0011 

0012 

0013 

0014 

0015 


integer 4CnATE(SUbrATASURP*PtCATKNT|CATTR 
BYTE CMNVEC,NeCHAN.NPSUBiO'»TCAT»OeTCLU 

C0HNt*N/COMl/ACnATE(2.MAXACr)(CMNVEC(MAVCHNtHAXACC).N0CHAN|N0SUR« 

lSUnCAT(MAXSOP)*SUBR0P(MAYS"e>*rATKNT(HAXCAT)tCATTH(HAXCAT)#N0D«« 

2N0nu4NPTR*n0TCAT(NnPTS)|n0TCLl(NDeTS1 

integer ADATES.SUNA2.Ar>ALST,FLDOAY.ORTOAV,POATEltTDATEl 
integer PDATF2,TOATE?,PDATE3*TrATE3iCATNAM,DISKID»RARO0H»6RID 
PYTE OELFLG»NPACO.S3ILr*R.Sl'NEL.NSTART»NTYPEl«ALP»ALP0 
PYTB PCTCT,PCTCT«» VAR, VARB.DLA'JfcL# TYPE 

ClfHMJtM/cBMP/ISPa.LPLFLGi^B'Ca# AGATES(2»MAXACn)tSPlL6R<MAXArOI# 
lSUNEURAYACO)»SU' Aii(MAYACO»» I»'»'ATE<2)iANALST(5)»FLnOAY(2)» 
2 DBTDAy(2).»'START.ntYPE 1|PD^TF-1(2)»TDATE1C2)»P0ATE2(2)«T0ATF2(2I. 
3PU*TE3<2).TDATF3<2)»N3CAT,rATN*«(PAXCAT)iALPtHAXCAT)»ALP0| 

4 oCTCT(MAYCaT)|PCTCT«:, waN(MAXCATJ,VARP 


0016 

0017 

0018 


0019 

0020 
0021 


0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 


integer FFLAGi,ErLA6?(EFLA*'.3«EFLAC4|€FLAQ5«UrLA6l(tlFLA62tUFLAGl, 
1UFLA04 

INTEOgR PFLAG»OS'<m*'T 

C«J>iM:'lM/C^*M3/P»LAr,,r>SKMKT,trLAGiiEFLAG2,EF|.AG3|EFLAG4#EFLAG5,UFLAGl 

l»UFLAQ2,UFl.AG3.UFLA64,Nk>lL«B<b/i*SLR) 

INTEGER TXl,TYl,T)(r>,TY?|AC:'I*!P,G.k,DTlKtNn,O0TARY|GMlN,6HAX,FUL 
integer SPvIND.CLAnHi,CLU« D 

Ci(!MmPn/cOM4/TXI,TYi , TX? i TY? , t Xt * t V 1 i 1 X2| I YP* ACDI SP (2 > * M 1 ( 4 ) « G ( 4 ) , 
llM4»*DT-lNn(S,‘lJ0TNl)),SP'>I‘ 0{5,A»SPW0), lMwINn(4),N|jMD0T| 
2O0TARY(NOZrS)»GMtN.Cr<AX,FU| (?f 7)«CIAWND(8)«CLUWND(4) 
CBMMt»N/cPMH/riSK!0,RAMP.4‘:c D.^IP)»GRin<MD>'*TS).Dl ARElINDRTS), 

lTYP£(Nn2TS),Rkr,tOC 
m I "N aR!NO(mj)-*tS).3''T»5> 

RYTE L4HL(5)|TlM(9)»KLAaF.L<N^?TS) 
real T0|SC:n("TS),F»(5) 

PYTE D'JN 

Data INcRiXNCR, IM, iLK.LLS/*^.4|7» • »|17/ 

IFCEFLAG4, lE.DQ'* T? 90 

IF(NTvPFl,t-Q,0)Gn Tf« 90 

!S«1 

LS«LIS 

PAGE*l 

rL'^SP("NlT«IU|OISP’SE*»SAVr* ) 

CALL ASSlGN<lU,*SY|C30n,l]NN,T*‘P|l*) 
define FlLR IU(MAXSUP»732»'!,NNPfcC| 

CALL irATE(N?l»OAY,vR) 

CALL TInEITIH) 

INR«1 

REA0( tdt iNR)KNM*NL 


1(7 






1*118103 1UAU8*77 


8A6| 11 


riRTRAN 

8|P*8T,F 

0140 


0041 

0042 

0048 
0044 
1000 
0040 
0047s 
0040 

0049 

0090 

0091 
0098^ 
0093 
0004 
0095 
0056 


0097 

0096 

0099 

0060 

0061 

0062 

0063 

0064 
0069 
0066 
0067 
0060 

0069 

0070 

0071 

0072 

0073 

0074 
0079 

0076 

0077 
0070 

0079 

0080 
0061 
0082 
0083 


0084 

0089 

0086 

0087 

0080 

0089 

0090 

0091 
1982 

0093 

0094 


1V«9LUS 902*04 
TN /T8|Bl0CKS/NR 

Nlta4 

1 Nl«Nl*tNeil 
noani^knCr 
tF.(Nl.6TiKNN)60 TO 4 
|f(N8V6TiKNN)N24RNN 

6 , ^ iriKu,Nei6>a0 T» 7 . . . 

e*lL C860pHC6tRAOE.BLK.lt 
60 T0 8 

7 WR!TBCKUi412I. 

WRtTE(KUilOO)N0tOAV«VR 

WRITECKUilODTtH 

8 HRIT8CKU1IO2I , 

URtTE(KUtl03)t8E6 

UBITfCKUll04)(<AC0AT6(J|K),J«l,8t.Ktl.MAXAeCt 

URtTBcKUil09tCHNVSC 

MRtTECKUtl06) 

00 3 t«t8.N08U6 

BEA0<lUt|NR)fARlN0(K).KLABEL(K)tT0t8tK)tK«l.NDt 

NN40 

00 2 

NHaNH«l 

J*KLABEL<N) 

LAaLCNN)»CATNAMCJ) 

rACNH)«TOlSCNt 

O0T(NN)aAR!NOCH) 

2 CONTINUE 

URtTE(KUtlO7)t((rA(N).O0T(^')(LAeL(N).Nal,NN) 
1FCKU.NEi6)60 T0 3 
irCl.LT.LS)60 T0 3 
LSaLS«LLS 

I r < LS . 6T • NPSUB ) LSBN0SUO 
!S«I*l 

URtTE(KUill3) 

REA0(6i 1H)DUH 
1F(OUM.EO,'X*)Q0 T4 4 
tr(I.QE*.N0SUR)60 T7 4 
60 TP 6 

3 CONTINUE 
MRITEcKUillOt 
irCKU.NE*6)60 T0 1 
60 TP 1 

4 ClOSE(UNlT«IU.niSP;«SE««SAVE*) 
OPEN(UNl7«tU(NAHEa<CSOO.l3rLUSTATS*TMp« I TYPE* *010*1 

lACeESS**DlREeT«,HAVREC*HAX':Ar.PfcCeN0SIlE*36) 

9 RETURN 

90 URlTE(6,104)NTVPEl.ErLA04 
HR|TE(Ku»ll3) 

REA0(6iH 1)DUH 
tF(DUMiE6«'X*)60 TP 4 
60 TP 9 

100 P0RMAT(46X.*nATS • . I2.2C «/* . t2)/92X.3< *••* .X) ) 

101 F0RMAT(«O*.49X.iTImE *.RA1,/9?X,9c****,X)) 

102 F0RHAT(*Ot,24X.«CLUSTER NEAREST NEIOHB0R REPPRT*t 

103 F0RMAT(*O*.* segment 10 *. I4/13A. *••••* ) 

104 F0RMATOO*.* ACOUISITIRN DaTE(S) • .4C |2*1X. I3.6X) ) 
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€ 

F0RTRAN IVwPlUS V02«04 1011^183 ll«AU6»7? PA66 12 

P6P0RT.FTN 

0095 109 

0096 106 

0097 107 

0096 109 

0099 109 

0100 110 

0101 111 

0102 112 

0103 113 

0104 


I 

f 

¥■- 

i 


t 

I 






/TP|0L9C‘<S/P9 

FBPMATOOt,* CLUSTFHINO CH»MMEl 3 ••4C4l2i4XI» _ _ . 

F0RH4TOOCLUSTPR*,1OX, •nEA'» 6ST N6IQHB0R Ot$TANCE/OBT GRID NUMBER/ 

iLAoeto 

r0RMAT(t3.lOX.9(F7.2«*/M3*(/*iA2n .... 

F0RMAT<»OCANN0T PROIVIDP THP ^fcA«6ST N6IQHBPR CUUSTFP R6PGPT*/ 

1* NTVPEI • '.n.lOX.'eFtAGfl f M4» 

F0RHAT<Al) 

F0»MAT<» M 
F0RMAT(A1) 

F0RmAT(*1 •) 

f0RMAT<»ACR T0 CONTINUE, X T0 AR0PT REPORTS > M 
ENO 
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MrSRTRAN IVOLUS Ve2«04 
CLUOtStrTN /TR|BL0CKS/HR 

c 

c 

c 

c 

e 

e 

c 

c 

c 

c 

e 

c 

e 

e 
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09 1 92 1 9 t 29 «JUIIi« 7 T PASS 1 

eiUSTiR HAP DI 89 LAV • OMVBR 
taURCE PRaSRAH • CiSl«t 40 SeiUOIS;pTN 
WRITTEN RT • 8 ERAL 0 CHAHPASNE 


THIS preqran caNTRaLi cluster nap displat 

NEDULES CCNTRaLLEO SV THIS PRERRaN ARE 

1 • UNCEwDITIBNAL nap OtSPLAV 
9 • CENOiTlEwAL NAP OISPLAT 
S t MIXED CLUSTER NAP DISPLAY 
4 • REPEATS QENERATER 


0001 

0002 

OOOS 

0004 


0005 

0006 


INPLietT |NTE 0 ER(A*i) 
include *C 900 |S]eAMSC 0 MEN,|Ne* 
include * 8 VIC 300 i 33 CANSPARAN;|N$' 

parameter NAXCAT« 60 |MAXSUBt 6 efHAxCHN« 4 *NPtXti 96 *NLiNPllTiNAXrL 0«90 
t,HAXY«lliNOETS« 809 . 0 LSK|P«lOiOSSX|PnO«NAXACD« 6 iMAXACC* 4 « 
2 NO$PWD 46 iNSOTHDtlO 

equivalence (CliACPATEMClilSEQlf (es«PPLAQMC 4 |TXl)»CC 9 (DtSK)D) 
INTE 6 ER Cl( 469 )ie 2 ( 296 )iC 3 ( 7 i)»C 4 (S 48 )«C 9 ( 629 ) 


0007 

0008 
0009 


0010 

0011 

0012 

0013 

0014 


0019 

0016 

0017 

0010 

0019 

0020 

0021 

0022 

0023 


INTEOSR AeDATEiSUBeATiSUBPPPiCATKKTiOATTM 
byte CHnVECi N 0 CHAN. NOSUBi Di^TCATi 90 TCLU 

CEHMBki/cBMl / ACDATE ( 2 1 MAXACC } * CUN YfC < NAXCMN t NAXACC) « NECMANi NEBUB t 
lSUBCAT(MAXSUB)|S(IBPEP(MAXS'JS)iCArKNT(MAXCAT||CATTH(NAXCATltNEDR* 
2 N 0 DUiNATHiO 0 TCAT(NOETS)iOBTCLU(NDBT 8 ) 

C* 

integer AOATES«$UNA 2 .ANALST»rLDOAYaD 0 TDAV«POATEliTOATEl 
INTEGER PDATE 2 «TOATE 2 fPOATB 3 tTDATESiOATNAH«DtSKlO«RANOaNfQR|D 
BYTE DELPL 6 iN 0 ACO«S 0 lLORi$UNELiNSTART«NTYPEl«ALP|ALPB 
BYTE PCTCT.PCTCTPi VAR, VAR 0 ,DLA 9 feLi TYPE 

CBNMPw/cEH 2 /ISPQ,DFLPL 6 iN 04 CQ,AOATE 8 l 2 «NAXACO),SBlLQN(MAXACO)t 
l 8 UNEL(HAXACD),$UNAMHAXAeD),|NDATB( 2 ),ANALST( 9 ),rLDDAY( 2 )f 
2 O 0 TDAY( 2 ),NSTARr,NrYPEl,PDATei( 2 },TDATEl( 2 )«POATB 2 f 2 ),TDATE 2 ( 2 ), 
3PDATE3(2),TOATE3(2),N0CAT,CATNAM(MAXeAT)«ALPlNAXCAT)«ALPEi 
4 PCTCT(MAxCAT),PCTeTe.VAR(NAXCAT),VARO 

C« 

INTEGER EPlA 61 ,GrLA 62 ,ErLA 63 ,ErLA 64 #ErLAQ 9 ,UPLA 61 ,UFLA 62 iUrLA 03 * 
1 UFLAG 4 

integer PPLAO.DSKNNT 

C 0 NN 0 N/cBN 3 /PPlAQ,SSKMNT,EPLAOl*BFLAG 2 «EPLAQS,ErLAG 4 iEfLAQ 9 ,UriABl 

liUFLAQ 2 .UrLAG 3 ,UFLA 84 ,NEHLAS(MAXSUB) 

C* 

integer TXl,TYl,TX 2 ,TY 2 ,ACn|SP, 0 , 0 ,OTW|NO,OETARViQM|N,OMAX«FUL 
INTEGER SPW|ND,CLAWND,CLUWi^D 

e 0 MM 0 N/CBN 4 /TXl,TYl,TX 2 ,TY 2 ,|Xi»lYlilX 2 ,lY 2 «ACD|SP( 2 )ilIlU)(Gt 4 l, 
lB( 4 ),OTwtNO( 9 ,NODrwD),SPWlvD( 9 ,KP 8 PNO),|NHlND( 4 )«NUNO 0 Ti 
2 O 0 TARY(ND 0 TS), 6 H|N. 6 MAX,rUL( 2 i 7 },eLAWNO( 0 >,CLUHND(Gl 
C 0 MM 0 N/CBMS/D I SKID. RANDOM (hosts) iGRIOCNDETSIiDLABElCNOETS), 
1TYPE(N0oTS),RECLEC 
byte W( 10 )i ATIMSiS) 

C 

CALL attach 


/ 5 / 




riittAii tv^LUi 


/?SiatieNf/N(i 




#*w t 


CAU SvtSufiill&t) 

0Ait mtllWl^O0«Vtl ^ * 

0AU TiNKATiNir 
HRIfei«»t40l NNi08t¥Y|ArtlH 

•PIN rail 

' ' irf’* * -i' i i. '^5 '■■ ' 

OAU Ali|INf7«(Ci0liA3NN;TMri1 

MrtNp rai tcnamiui<7II«uinmii 
N riJlA5Nr|N#4 ‘ . 

HinUN|TfiiNAHiftcioeiiieku|tiiiNr«TNrt«rvnt*tfNKNiNNi 

AeiflM*0IMeT<iMeiRQIIIItNr|N4|NAXNietNLfNI 

NifTlIlilQO) 

•HICK eiUSTII NAP rai iiiitaiiii plao 
iPtiruaiiNia) eAU ipnain 

tPiiPLAii.Niai II Ti m 


HIT AND Ulim UIIN IPTtlNI 


•I TI tl 
CALL lUTPumpai) 
Nit Till* III I 


lAWt lUTPUttTI 
IIAIIfillOlN 
CAU PllNTjtNiil) 
|PfH(lMQ«*iM lAU UNCDII 
triN(!)«IQ',«iM II TI I 
IP(Hli)j»S 0 **|(| lAU OINDII 
tPCH(i)«ll^(tf| II TI I 
trfN(l}|ll,« 3 f) CAU NIXOII 
IPfN(lM 0 ,(|n II TI • 
ir(NClM 0 ;( 4 M lAU MPilT 
trCNClMQ^ 4 f| II TI i 
tP(NCil,NI,(Xt) MltTlUillO) 
tP(N(i),Nl.(XI) II TI I 


OIIPUT HAPII TtNI 


lit! 

lALL iUISKin 


IX IT II Ml! AIT 


N||TR(A«I 70 ) 

CAU. lUTIUTtT} 
HAOUillOIM 
CALL rMNTCNitl) 
tr<HC 4 )»i 0 >«iii II TI ii 
tPIKlMO^XII II TI T 7 t 
NllTiClillO) 

II TI to 










IS. CLUSTER HAP DISPLAY CLUDIS 


MfSRTIIAN |V«PUUt VSa«0« 
eiUOtf«rTN /TR|8 l 0CK8/MR 
c 
c 
e 
c 
e 
e 
c 
c 
e 
e 
e 
c 
e 
e 
c 


08192198 89«JUN«77 8S08 i 

eiUSTfS HAP DISPLAY m DStYSR 
tSURCl PPIORAM • CUl«UOSeLUOIt;rTN 
HPITTfN av • OISALO DMAMPAttHI 


THIS PPfSPAH CSNtSSLt CLU8Y8R NAP DISPLAY 
M0OULES CONTa0LL8O 9Y THIS PSfQIlAN APE 

I m UNC0HOIT10NAL NAP DISPLAY 
9 • eONOiTlDNAL HAP DISPLAY 
S • HIKED 0LU8YSP NAP DISPLAY 
4 • PEP0PTS QlNEPAYSP 


0001 

0002 

0003 

0004 


0009 

0006 


iNPLlelT |NTB08P<A«i) 

Include tcsooiS]eAMsciHON,iNc' 

include *SV|C300i93eANSPAPANi|N$* 

PAPAHITeP MAXCAT«60*MAXSUB«6efMAKCMN«4«NPtXfi96iNLiN»ll7|NAXrLOa90 
i*NAXY«liiND0T892e9.OLSK|P«lOiDS8H|P4tO«NAXACO«6«NAXACCM| 
2NOSPM096iNSDTMDttO 

equivalence f Cli ACPATE) I (C?i I8E6) , (CStPPLAQMCAtTxl) • (C9, DISKED) 
INTBSEP Cif 468) 102(896) 183(71). C4(S4S)*C9(628) 


0007 

oooe 

0009 


0010 

0011 

0012 

0013 

0014 


0019 

0016 

0017 

0010 

0019 

0020 

0021 

0022 

0023 


C* 


c« 


c* 


c 


INTEOEP AeDATEtSUieAT|SU9P«P|CATKKt|0ATTN 
BYTE CNHVECiHSCHAN.NBSUBiD^TCATiDITCLU 

eSMMSN/e0Ht/ACDATS(2«HAXACC)iCMNVEe(NAXeMN*NAXACe).N0CMAN,NS9UB* 
ISUBC AT ( mAXSUB ) . SHBPOP ( HAXS'JB ) i CATKNT(HAXC aT) . CATTM(HAXCAT) . N 0OP. 
2N0DUtNDTH.D0TCAT(NO0TS)iD0TCLU(NDOT8) 

tNTEOEP abates. SUNA i.AMALST.rLDOAV.DSTOAV.POATEltTdATEl 
INTEOBP PDATE2.TDATE2.POATe3.TDATE3*eATNAH.Ot8KlOtPANO0N«QPtD 
BYTE oEL7LO.H0ACQ.S0lLQPiSUNEL.NSTAPT«NTYPEl«ALPtALP0 
BYTE PCTCT.PCTCTP. YAP. VAP0,OLA9feL. TYPE 

CBMNPh/C0H2/ISPQ.DPLPLO.H0ACO.aOATES(2.NAXACO).80IlQP(HAXACO). 

l8UNEL(MAXACD).$UHA7(MAXACD).tHDATfi(2)*ANALST(9)(rL0DAY(8)t 

2O0TDAY(2).NSTAPT.NTYPEltPOATBl(2||TOATEl(2).PDATB2(2)|TDATE2(2). 

3PDATE3(2).TDATE3(2)«N0CAT,CATNAM(HAXCAT)«ALP(NAXeAT)(ALPS. 

4 PCTCT(MAXCAT)|PCTCT0,VaP(NAXCAT).VAP0 

tNTEOEP EPLA61.ErLA02.ErLA63(ErLA84|EPLAQ9.UPLAQl(UFLA62iUrLA03. 
1UFLAQ4 

INTEOEP PPLAO.DSKMNT 

C0HHeN/c8HS/PrLAQ.SSNMNT|ErLA8ltErLAO2(ErLAOS.EFLAO4iEFLAQ9tUfLAOl 
1. UFLAQ2. UFLA03. UFLA04 . NEWLaIM MaXSUB) 

tNTEOEP TXl,TYl,TX2«TY2.ACPtSP.O«O.OTMtND.O0TAPV«OHtN|ONAXtFUL 
INTEOEP SPWlNDiCLArfND.CLUPkO 

C0HMfN/C8H4/TXl.Tyi«TX2.TY?.|XlitVlitX2(tY2«ACO|8P(8lf lll(4)aQ(4). 
lB(4).DTMlNO(9.N0OTwD).SPUtMD(9.K0tPWD).tNHtND(4)«NUNO0Ti 
2D0TAPY(ND0T8).QHtN.6MAX(FULf2i7}«eLANNO(0)(CLUHNDCO) 
C0MM0N/C0N9/DlSKID.PANO0H(HD3TS)iePlD(NOSTSItOLABEL(NDBTS)« 
1 TYPE(nO0TS),PECL0C 
byte WdO). ATtHE(O) 

CALL attach 


/a 3 
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0080 
0017 
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0080 
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0080 


0007 
0010 
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0040 

0041 
0048 
0040 
0044 
0048 
0040 
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0040 
0080 
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0084 
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0080 
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0000 
0001 

0008 


e 

0 

0 


e 

e 

e 


e 

e 

0 


8 
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80 


¥08f04 
/TOfOtfOKO/MO 
Itil 

OAU OkAOOOUII ^ 

OAU ftftOUTC87«l0) 

8AU lOAfilllNiOB.fVI 
CAU TtN8fATtN8) 

08|T8CO«040) MMiOOtVriATtNB 

lOBN 7IL80 

OAU AOOtOIM7«tCOOO«l78N;TNOtl 
08rtOp mi 7|NAM8U8«708«U#NOlei 

•o{riUNITtOiNAH8t*COOO«l30lUOtl8NO«TNOt«TVOIt*UNKN8MNI| 

AC08004«D|MeT<tMe0880llltNOt84*NAXMe«NllN) 

88tT8|0<000) 


CMICK 


^11 


IIOTANOB riAO 


tfflOLAOl.Nlai OAU 87NA8N 
trClOLAIi.lilai 08 TO 777 


LIOT ANO OOklOtf U088 fOTfONO 


00 TO 10 

OAU lUTOUmO.ltl 
MRlTifOtOlO) 

CAU fUTOUTfOl 
MAOlOiOtOIH 
OAU rMNTIMaOl 
|riH(ltilQ.*in OAU UNCDtO 
triMllMQi*!*! 08 TO 8 
|7(NC1M0.*8(| CAU 88N0I0 
trCU(lMO.(St| 00 TO 8 
tr(N(iltfOi*OM OAU Nixoto 
triH(ll.80i*Ot| 00 TO 0 
ir(Hfti«ee«*4i) oau mpoot 
ircHfiMo.uti 00 to 0 
tr(M(l).48«*X() WRIT8U1O9O) 
tr(ufi)iN8 t'xt) 00 TO 0 


I too 

CAU flAOSintl 


OIOOUV 81A0M TtNI 




HOtT6(O«O70t 

CAU OUTOUTC7) 

R8AO(O«Ot0tN 

CAU fOiMTINilOl 

iriM<iMo;*8ti Of TO 10 

ir(N(iM0 i*xo Of TO 777 

UOtTilO.OOO) 

00 TO 00 





fMTKAM tV«»LUt V0t«04 09i52|f> 29»uUM«97 PkU 9 

etUOtStfTN /T«lBt.9eKt/HM 

C 8AVI OkllBAL efHMIN 

C 
C 

e 

00A8 777 CALL OETACH 

00*4 include *C800iS9CAM8AVl.tNe« 

ODES • •7ENfUNlTn»N<H|«»;SOO(19eLHAL'( 

• 1 T7Ma'UNKNei<N«tERNB9999) 

0099 • HNITEUICI 

0097 • NN|Te(i)C2 

0090 • MNlTEdlCS 

0099 • NN|TEU)C4 

0070 • HN|TCtl)C9 

0071 • CLOSElUNlTBl) 

0072 • 00 70 9991 

0073 • 9909 T79E 9990 

0074 • 9990 f0ONA7flX,*0PEN PAlLUrE 0N COOOi19QLOOALiTN9vNO OESTAOTfl 

0079 • 9991 continue 

0076 CALL SETEHSO) 

0077 000 f0ONATC/20Xf 'CLUSTER NAP DISPLAV/NAV 1977'} 

0070 OlO P0RNAT</«SX»'USBR options • CLUSTER HAP DISPLAY*/ 

1 • 1 • UNCINO1TI0NAL HAP DtOPLAY*/ 

2 « 2 • conditional nap DISRLAV*/ 

3 * 3 • MIXED CLUSTER MAP DISPLAY*/ 

4 • 4 • PEP0RTS OENERATOP*/ 

X ♦ X • EXtT*//*S ENTER 0?TI0 n >»} 


0079 

020 

PORMATClOAi) 


0000 

030 

P0PHAT(* ••• INPUT 

ERRPR ••••) 

0001 

040 

1 

P0RMATC/4OX|«OATE| 
/40X*'TtHEl 'iBAD 

•i!2i*/'*l2t*/M2* 

0002 

0003 

070 

P0PHATO9 (R)E8TART 
END 

OR E(X)|T >•) 



OP POOR QOAUTV 
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15.1 80BR0UTINB EFWARN 


rfUTRAN 

eiuoitii 

0901 


0002 

0003 

0004 


0009 

0006 

0007 

0000 

0009 


0010 

0011 

0012 

0013 

0014 


0015 

0016 
0017 


0016 

0019 

OOtO 


0021 

0022 

0023 

0024 
0029 
0026 


0027 

0020 

0029 


tVsOLUS V02»04 09193106 29«JUN«77 MOf « 

TN /TOieiOCKS/HR 

SUMOuTINi iPWARN 

e 

C THIS POOQOAH It CAUfO WHEN ^EfUAt* IN THE C0NHEN 

e 9L0CK /C0N3/ 19 N0T SET T0 «1( INDICATING THE 

C eiUSTEA HAP display pile is N0T 0 N H0RKIN6 ST0NAOE 

e 

tNCLUOS *C9OO«33CAHSC0H0Ni|Ne! 
include *SYieS00iS9CANSPARAH|lNC* 

PANAHETEP HAKCATi60«NAX9Ue960»HAxeHN94«NPlX«i96tNLiN«liTiNAXPLD990 
iiHAXValliNO0TS«2O9.DLSK|PalO|DSSK|PtlO«HAXACD«6iNAXACCMi 
2N0SPNo<t6iN0DTMD«lO 

iOUIVALENCe CCl*ACOATE)f (C2ilSE6}ifC3*PPLA0 . (eAiTXll* (CSiOlSKtO) 
INTEOEP ei(469)«e2(296)|C3(71}|64(340}«C9(629} 

Ca 

integer ACOArE«8UBCAr*9UBP0PtCATKNT|CATTN 
BYTE CHnVECi N0CHAN. N0SUB«O0TCAT« O0TCLU 

C0MM0N/C9H1/ ACDAtE C 2t NAX ACC ) t CnN VEC ( NAXCMN i MAXACC) , N0CHAN« N09US* 

19UBC at ( nAXGUB ) < SUBP0P ( MAXSUB ) i CATKNT ( NAXCAT ) • CATTN(MAXCAT ) • NBD0* 

2N0OU I N0THi D0TC AT ( NO0TS ) , O0TCLU (NDBTt I 

C« 

INTEGER AOATESiSUNA2iANALST|PLOpAV«O0TOAV«POATGtiTOATEl 
INTEGEB PDArE2iTOATE2«POATGS|TnATESiCATNAHiDISKID«RANO0H|6RIO 
BYTE OElPIGiN0ACO«S0!L6Ri$UNBL«NSTaRT«NTVPE1(ALPiALPB 
BYTE PCTCT,PCTCT0|VAR.VAR0.DLARELiTVPE 

C0NHeN/C0H2/ISE6«OSLPL6|N0ACQ«AOATGS(2«HAXACD)«S0lLGR(HAXACD)« 
ISUNEL(HaXACO) tSUNAKMAXACO) . tM0ATE(2) i ANAlST( 5) «PL0DAY(2I« 
2D0TDAY(2}*NSTARTtNTYPEl|PDATBl<2),TDATEl(2}«POATE2|2)*TDATE2<2)« 
3POATE3(2)«TOATE3C2)|N0CAT«CATNAN(PAXeAT},ALP(NAXCAT}iALP0« 

4 PCTCT ( maxCAT ) I PCTCT0 . VAR{ MAXCAT) . VAR0 

C* 

integer EPLAGl.ErLA62.EPLAG3iEPLA64«ErLAS9fUPLA01(UPLA62|UFLAG3« 
IUPLAGA 

integer RFLAGiOSKNNT 

C0MM0N/C0H3/PrLAO«DSKMNT.GrLACt,EPLA62«EPLAaS«EPLAQ4iGFLAG5«UFLAGl 

liUPLAG2*UFLA63iUPLAG4«NEWLAHfHAXSbe) 

C* 

integer TxliTYliTX2|TY2|ACO|SP.Q|BtOTW|NO.D0TARY«QM|N|GHAX,PUL 
integer SPUINDiCLAWNDiCLUWnO 

C0NMON/C0N4/TXl.TY{|TX2|TY2«|XlitYliIX2itY2iACDISP(2Mll(4)iG(4)< 
lB(4),DTwtND(5«N0DTuD)aSPW|ND(9,N0SPMOMHH!NDt4)iNUND0T» 
2D0TARY(NOgTS)«6NlN.QHAX«PUL(2i7)«CL*UND(0)iCLUHND(O) 
C0HM0N/C0H9/DISKtD.RAND0H(NO0TS)«6RlD(ND0T9)«OLABEL(NOBT9), 
1TYPE(ND0TS)«RECL0C 
Byte m(io) 

URITE(6.800) 

READ(6»610) W 
CALL PR0NT(W«1D) 
lF(W(l).NEt'Yi) return 

c 

C IP THE USER DjFSIRESi THE REPORT QENSRAT0R IS CALLED 

C 

CALL report 
RETURN 

600 P0RMAT(//2OX,la«« WARNtNB •••*//» 

1 t cluster map display pile Is NBT bn WBAkINS ST0RABfit//« 

2 *S W0ULO Y0U LIKE REPORTS T (TIES 0R |N)0 >•) 
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MU ? 


0090 oio ruhAtuoAix - 

oon iNo , .. ...j 


ORIGINAL PAGE IS 
OF POOR QUALITY 










ORIGINAL PAGE U 
OF POOR QUALITY 


1S.2 80BR0DTIME UHCDI8 

Mr88T^Ai' |V»HU8 ¥0t*O4 ^ 
UNCOII.FTN /TK|BLfCK8/WR 

0001 suoroutinb mm 


09|9Sli« 


PA86 


0002 

0003 

0004 
0009 


0008 

0009 

0010 


0011 

0012 

0013 

0014 
0019 


0017 

0018 


0019 

0020 
0021 


0023 

0024 
0029 
0026 
0027 


SUORBuTINi UNCO I 8 

UNCSROITlONAU eiUtTER NAR 0I8RLAV 
SOURCE RROORaN • Cl3lit40SUNeDtS;rTN 
WRITTEN RV • QERALO CHANRAONE 

THIS RR8QRAN 0|SRl,AV8 UNCiNOlTtONAk CLUSTERS 
OR CATE60RIE8 OBTERHINED 9T TNR USER 

IwRLtCtT INTE0BR(A«2) 
include 'CSOOiSSCAMSCOHONiINC' 

INCLUDE 'SVieSOOtSaCAMSRARANilNCt 

parameter MAXCAT960 1 MAXSU8«60 » HAKCHNM« NR| X«i98« NL|N«117*NAXPLDa90 
It NAXValli NDfTSi 209 . DISK | R»10 1 OSSK IRalOtNAXACDaOt NAXACCpAt 
2NOSRWD"8*NODTMOalO 

equivalence (CltAC0ATE)i(C2ilSE6)t(CStPRU6)t(C4tTxiMC9tDISKiD) 
integer eiC489)«e2(296)ie3(71)te4CS40)«09(629) 

integer ACOATEtSUBCATtSURRRRtCATKKTtCATTH 
BYTE CHNVECiNeCHAN.NOSUBiOeTCATtDeTCLU 

C8MN8Ki/e0Hl/ ACOATE ( 2 1 HAX ACC 1 1 CWNVECC NAXCMN t HAXACC ) « NOCHANt NOSUB* 
lSUBCAT(NAXSUB)iSUBPeR|MAXSuB}tCATKNT(HAXeAT)tCATTH(HAXCAT),N0DOt 
2N0DUiN8TN«n0TCAT(NCOTS)|D0TCLU(Nn0TS) 

integer abates, SUNA 2,ANALST|rLOOAYtO0TDAV»RDATEltTOATEl 
integer ROATE2iTnATE2,PDATB3tTDArE3fCATNAHtOlSKlDtRANO0H|6RID 
BYTE DELrLGiN8ACO»seiLGRi8UNEL*NSTARTtNTVREl,ALR*ALR0 
BYTE RCTC7,PCTCTR,VAR,VAR0.OLAB8LiTYRE 


arvaTBSIZIf TP«fe4(Z}|N0CAT|CATNA"(rAXCAT|,ALP(NAXCAT|lALrBt 
4 PCTCT ( MAXCAT ) t RCTCT0 . V AR (NAXCAT) , VAR0 

integer ErLA61,ErLA62.ErLA6S,ErLA64iErLA69.urLA61iUrLA88fUrLA63. 
lUriAGA 

integer PPLAOiDSKMNT 

^0MH0N/C9N3/PFLAO,DSKMNT,EPLA6iiEPLAQ2,EPLAQStErLAQ4iEfLA69,UrLAGl 

ltDriAlB?~.UPtA6S,UPLAG4«NEWLAW(NAXSU8) 

integer TXl,TYl,TX2,TY2,ACDlSP,G,B«OTW|NO,D0TARY|QN|N,6NAX,rUL 
integer SpmND,CLAUND,CLUHND 

C0NH9ii/C0M4/TXl,TYlirX2|TY2,|Xlt|Yl»|X2ilV2,ACD|SPf2>tlll(4)tQ(4}, 
lB(4),DThTNC19iNODTwD)tSPW|NDI9,NeSPWO)t|MNlND(4},NUMD0Ti 
2OeTARYfND0TS)|6HIN.6MAX|PUL(2i7liCLAWNOIO)tCLUWND(O) 
C0MNPN/e0M9/OtSKtD*RANO0H(ND0TS)i6RtB(NO0T8),OLA0EUNDOTS), 
1TYPEINO8T8)',RECL0C 
C0HM0N /L8C0H2/CMASK 

C0MN0N /f00H/tC(4).TC(4),lXttY,TXiTYtHX,HY 
C0HM0N /PATAL/iB.RR 

dimension |X(912)ilYf912),TX(»l2)tTY(9l2) 

DIMENSION CMASK(60)i C00PD(4) 


riRTKAN tVvPlUS 
UNMItifTN 


SDIS 


0019 


ooso 


0081 

e 


‘1, 


e 

0088 


0088 


0084 

10 

0089 


00S6 


00S7 

19 


C 


c 


e 

0080 


0089 

e 


c 


0 

0040 

to 

0041 

c 


c 


c 

0042 


0043 


0044 


0049 


0046 

89 

0047 



vei>04 

/TftlMCK8/li|l 
ivrt H(74)| ATtN8(8) 
8AU fUT7UT(27«tt) 
CALL lOATifMNiM.VV) 
GAlt ttMeiATIMIt 


Ofissiu a7«JUN«77 


8AM t 


aitfUV standard HIADiNOS AND MSSNAN NANt 

NRIt|lfiS80) NHtDDtYViATiNI 
NRITI(A<S10) 


eiNTiNUS 
OS iS ItiiMASSUS 
eHAiKtnto 
DSnTINUI 


QE 7 CSSRDlNAtSS 

CALL SSTCSSnCtTCtiSSTI 
irClSfTtlQ.O) St Tt 777 

Atutw rtN IStNtNG Ut St DtMN 

CAii ittttN(ie(it*lcmiiC(it«icc4)iteii)itC(8)itci3)*TeUi« 

lXilY|TX,TV»DXt*DYl|HXiMYiDNX) 

irdo.EoU) Qt Tt io 

SAVE CttNDtNATES IN OUltAL CtHNtN 

D0 29 tllil 

i7(1,le‘, 4) euuHNDmfTCd) 

I7(M.E|4) St Tt 29 
cLuNNDn)«ie(i«4) 

C0NT1NUE 

CALL lUTf»UT(27.12l 


c 

c 

c 

c 

c 

e 

c 

c 

c 


LIST USES tPTltKS 

THE USER ERTttNS ARE 

1 • LIST tf CLUSTERS AND CATEStRlES 

2 • CATEOtRY Tt THERE ASSI8NHENT 
s • cluster Tt theme ASSISNHENT 
4 • CLUSTER lAREl chance 


004S 

0049 

0090 30 

0091 39 

0092 

0093 

0094 
0099 

0096 

0097 
0090 
0099 
0060 
0061 


WR1TE|6,830) 

00 T0 39 
MRtTE(6,04O) 

CALL 0UTRUT(7) 

READ( 6 iS 00 ) W 
OAIL fS0NT(W.74) 
tr(H(l).EQ,> M 00 Tt 40 
tr(H(l)|E0.«lt» CALL LlSTl 
ir(N<i).S0i*in St Tt 10 
ir(H(i).EQ.ft«t CALL QATTHM 
tr(Hfi).EQ.*2M Qt TO SO 
trfM(l)|B0.'3t| CALL CLUTHM 
tr(U(l),SQi*St} Qt Tt 30 
ir(M(i)«B0.'4t) CALL CLAtfiL 



l ) 




€ 


rtRTRAN tVaRLUS V0»»04 Q9I9SIU t9«jUN«7r PkW 9 

UNpOtSiffN /TRtBl0eK$/lll| 

0048 ot to so 

0049 irtW(t)tiO«*KM Ql T0 40 

0044 WOtTi (4,000) 

0049 99 TO 80 

0044 40 eiNTiNOS 

C 

e MRITS OLUStSO AtSIONReNTS Tf THENI 

C 

0047 CALL TMOtTE 

C 

e EXIT OR RSOIaRT ortion 

0040 40 HR)Te(4,070) 

0049 OAIL 0UTRUT(7) 

0070 R6AD(4f000) W 

0071 CALL rR0NT(N,74) 

0078 ir(W(i).EQ,*Rt) G0 TO 10 

0079 ir(M(i),io«*xn o0 to 777 

0074 WO|tE(4,000) 

0079 00 TO 40 

0074 777 CONTINUE 

0077 R8TURN 

0078 400 rORMATl74Al) 

0079 OlO rORMATt/lOX, 'UNCONDITIONAL ClI/OTBR MAP DiSPLAY/HAY 1977* ) 

0080 080 P0RMAT(/4OX,'DATEI 18, '/*f 18* '/M8, 

1 /40X.tTIMEi *.8A1) 

0081 aso PORmATC/' user options ARE'*/ 

1 • 1 ■ LIST or CLUSTERS AND CATEGORIES*,/ 

2 ' 8 • CATEGORY TO THEME ASSIGNMENT*,/ 

3 « 9 • Cluster to theme assignment*,/ 

4 • 4 • Cluster label changes*,/ 

9 * X » EXIT*,/ 

6 ' CR ',1, FRR continue*,/ 

7 *S enter option 

0088 840 format!/' USER OPTIONS ARE'*/ 

1 ' 1 • list* 7 • CAT TO ThM* 9 • CLU TO THM, 4 e LAB CHANGE*' 

2 ' E(XJ|T, CR'*/ 

3 's enter option >*> 

0083 870 FORmATCS (R)ESTART OR E(X)1T >•) 

0004 880 FORmAtC INPUT ERROR *«* TRY AGAIN*) 

0089 END 






























15.3 SOBROOTINB LI8T1 * 


MriRTRAN IVMUUS V02§«4 Of I S3 1 SI Sf«JUN*77 7AII 1 

ktiri*rTN /TUliLtCKl/NI 

im suMfuftMi utin 

e 

I *1 0 tHil MIIIAM OttHAVt IN Til TN| ekUITIM 

\ e AND eATIIlMlt ffl TMAt SIININT 


0001 
0003 
0001 • 
ooor • 


0006 

0007 

0000 

0000 

OOiO 


IHOUelT iNTIliN (A»l) 
iNCLUoi «esooiS3eAN8eiNiN«|Nei 
tNCLUOl (fVieSOOiDCAMlOANAHilNOl 

OANANITEN MANCATvIO I NAXiUltiO , NAXCMNfA • NO |X>106« NL | N«U7i NAXf IDafO 
tiNAXVaitiNDIfSflOO.OLSKlOtlOiOOlKIOflOiNlXACDaOtNAXACCMi 
2NOSPMO*6lNIOrUO«tO 

iOUIVAklNCI CCliAeOATE)i(e2i|Se0)«CeSiOfLAQ)iCe6iTXlMCO«DtfKtOI 
INTEOEN eil460)ie2(296>ie3(7i)*C4(S40)*ei|62fl 

I NtfittSR ACB ATE « lUOeA t « SUOOflO t C aTKNT i OATTN 
OYTE CHNVBetNOCHANiNOSUOtOoTeATiDirCkU 

eoNN0N/eOHi/ACOATEc2iHAXAee}ieHNvfie(MAxeMNiNAXAee),NoeNAN»Nisuo« 
ISUOC AT ( NAXSUO ) , SUBOOP ( HAX$Ul ) • QATKNT ( HAXOAT ) • CATTH ( NAXCAT ) | NIDI* 
2N0OU« NOTHi OITCAT ( NO0TS ) $ D0TCIU ( NDOTI ) 


oou 

0012 

0013 

0014 
0019 


integer A0ATE8iSUNA2.ANALST|PU00AVi00TDAV,PDATEl|TDATEl 
integer PDATi2iTOATl2iPDATB3iTOATESieATNANiDISK|O*RANO0NiGR|D 
BYTE OSLOlQt N0ACO* 00 1 LOR* SUNll * ^ST aNTi NTVPE l* ALPt A lP 0 
BYTE PCTCT.PCTCTB* VARi VAR0. OLARll.1 TYPE 

e0HN0N/e0M2/|8EGtOII.PUO|N0ACO*APATE8(2iMAXAeD)«t0li:GR(MAXAeOl« 
iSUNEk (N aXACO) f SUNAE(HAXAeO) I |HDAfE C2 ) i ANALSTC9) iflODAYCt I * 
2O0TDAT(2l,NSTARTtNTYPEl|POATEl(O)iTDATEll2)tPDATE2|2)tTDAYE2«2). 
SPOATiS ( 2 } . TO ATE3 I 2 ) I N0CAT i CATN aR I H AXCAT I .ALP ( NAXOA t ) i AlP0« 

4 PCTCT(HAXCAT)|PeTeTO.VAR(NAXCAT)*VAR0 


OOU 

0017 

0010 


integer EPLAGI t EPLA62, EPLAGSi ErbA64 1 EPLAGSi UPLAG li uriAGEi UPLAGS* 
1UPLAG4 

integer PPkAO.DSKMNT 

e0NN0N«^e0M3/PrLAOiO8KMNT|ErLAGiiirLA62.EPLAGS«ErUB4iBrLA6S|UPLAOl 

l»UrLA62(UFU03iUPLAQ4«NEWLAB(MAXSb0) 


0019 

0020 
0021 


0022 • 

0023 

C 

C 

e 

0024 
0029 
0026 
0027 
0020 
0029 

e 

e 

c 


integer TXl«TYliTX2.TY2iACntSP.6|OiOTHINO«D0tARYiOM|N,GNAXtPUl 
integer SPUINDiCLAWNDiCLUNnO 

C0NM0N/C0H4/TXliTYl|TX2iTY2«tXli|ViilX2ilY2«AeD|8P(8l*lllC4).O(4)i 

1B(4),oTn1ND(9iNOOTuO)i8PU|NO<9.NOSPNO)«INMINO(4)iNUND0Ti 

2O0TARv(NDOTS)iOHtN.GMAX|PUL(2»7)ieLAUNDCO)teiUHNOC0) 

C0MM0N/CBM9/D I SK I D • R AND0M ( nOBTS ) i GR 1 0 ( N00T8 ) • OLABEL ( NO0T8 ) , 
lTYPEfNO0TS),RECL0C 
OAU 0UTPUT(27«12) 

CALCULATE THE NLH0ER 0P LINE8 NEEOOO fOR DI8PLAY 


NaNOSuB/20 

ir(N0SUO.NE(N«2O) N9N*1 
irtNiOT.S) N«3 

ioeg*i 

IEND*20 

IPUEnO.GTiNBSUB) lENOiNOSUB 
DIGPLAV 0N Tli 


u 






L 


D 



u 




\ 


I'h'S 





8UBH0UTINB CATTHN 


HreilTRAN |V< 
CATTHNifTN 
11001 

e 

c 

c 

0002 

0003 

0004 • 


RLUt V08«e0 

/TRltLiCNt/NR 
IUM8UTIM8 CATTHN 


Of I 93 I 91 29«JUN«77 


HAOE 1 


THIS tUORfUTtHE A88I0H9 CATiOCRtfi T9 THEMES 

iHRkteiT INTEOER (A«E} 
tNCLUDE •C300t83eAHSCEHfM,tNe' 

1 NCkUpf * 8V I (300* 83CAH8RAR AM‘i | h 8 t 

RARAHETE* HAKCAT«00|HAV8UB«AO»MAxeHNMiMRlX«lfO(Nk|N*U7|NAXn.D«90 
1 * N AXV« 11 1 N09T8«20f « 0L8R I R»1 0 • 088R I RHO • NAXACOPf • HAXACCpA $ 
2N88RWD*AiH0OTHOp1O 

EQUtVAUEHCE (CltAeDATE)i(CRil8E6)i(eS«RfUA0}«(C4(TXl)*(C9i0|SKtD) 
INTEOER ei(40f)«e2(29«)ie3(71)i64(S48)«09(«8f) 

INTEOER AeOATE.SUECATiSUERpRiCATKNTteATTH 
8VTE CHNVECtNfCHAN.HOSUEiOSTeATiOfTCkU 

C9HMON/e0Hl/ACOATEf2«HAXACC)iCHNVfietHAXeHN|MAXACe)«N9eHAN|Nf8V8, 

l8U8e«TCMAX8U8)«SU8R0R(HAXSU9l*eArXHT(NAXeAT}|CATTH(HAXeAT)«N8O8t 

2N0DUiN0TH«D0TCATINO0TSIiO0TCLU<NP|TS) 

INTEOER AOATE8*SUNA2«ANAkST,rkDOAViO0TOAV«ROATEtiTDATEl 
integer ROATE2tTOATE2|ROATR3|TDATE3feATNAH«OI8K|9tRAHO0MiGR|O 
BYTE OEL7kO«N0ACO*S0llOR,SUNSkfNSTART*NTTREliALRtALR0 
BYTE ReTCT,ReTCT0*VARtVAR0,OLASBLiTYRE 

e0NMON/e0M2/ISEO.DELrLO|N0*CQiA0ATE8(2*HAXACO>*8BtLOR(NAXACOI* 

l9UNfi|.(NAXAeO)*8UHA0fMAXAeO)ilHDATE(2}«ANAl8T(9)irUOOAV(2)* 

2D0TOAY(2)iNSTART«NTYREl|POATSl(2)fTDATEl(2l|ROAT82(2)»TDATE2(2)« 

3RpATE3(2>«TOATES(2)|N0CAT,CATNAN(RAXeAT}«AUR(HAXeAT}*ALR0| 

4 PCTCT ( MAXCAT ) « RCTCT0 . V AR ( HAXCAT) . VAR0 

integer ErLAGl|ERLA62|ErUAr.3|En.AQ4|ErLA09«UrLABl«un>A02|UrkAQ3i 
1UFLA64 

integer RfLAGfDSKMNT 

e0HM0N/e0MS/PrLAO.O8KMNT.EPkA6liETLAQ2iErLAQS«ErUQ4iEri.AG9iUFLAOl 

liUFl.AO2«UrLAG3tUPLAO4,NEULA0(MAXSkB) 

integer TXl,TYi|TX2»TY2|ACn|tP.C,B.DTHINOiD0TARVf6M|H,OMAXirUL 
INTEGER 8PU|ND«CLAhlNO|CLUUNO 

C0MH0N/C0M4/TXl«TYitTX2|TY?«|Xli|YlitX2ilV8«ACD|SRf2)tlll(4)iQ<4)* 
lB(4),OTwlNn(9*N0nTuO)iSPW|NO(9.N0SPMBI«lHHlNB(4)|HUHOBTi 
2D0TARY(NO0r8)i6HlN,6HAX|rULf2i7)iCLAUNO(0)*CLUHNB(Sl 
C0MMRN/C0H9/O18KtD.RAND0M(NO0T8liQR|O(NO0T8ltOLABELfNO0T8)| 
iTYPEtNOfTSliRECUaC 
C0MH0N /L0C0M2/CMA8K 

common /l0fH/|e(4KTe(4),|XilY,TXiTV(HX«MY 
DIMSNSIBN |X(9i2)*IYl9l2)|TX(9l2)|TV(912t 
BYTE U(74), IB* NDLAR(S) 

BYTE RBSNEOfRERADD 
equivalence (|LABEL«HDLAN(1>) 

O1MENH0N MASKC0)»CMASK(4O) 

data main /••n01««*002««004|«010|i'020*''0«0f”l00*”200/ 
data POSNEOfRERADO /•R'i*R*/ 

IB«0 

IBRsl 

URlTElA.tOf) ' ’tevlr 


/3<j 


7 


PAti I 


riRmn ivafkut 
8AT?Ntl*rfll 
e 
e 
0 


¥11*04 

/T8likf0Kt/NA 


08T THI TNINI NttNllA AND flATISIIlY NVNMR fM 
tH8M8 OISOLAV OT TM 0ATI8MY 


001# ■ 
OOO 


OOlD 

e 


e 


0 

0080 


0000 


0040 


0041 


0048 


0043 


0044 


0049 


004# 


004? 

18 


C 


e 


c 

0040 


0049 


0090 

14 

0091 

0098 


0093 

14 

0094 

C 


C 


c 

0099 


009# 


0097 


0090 

80 


C 


e 


c 

0099 


0040 


0041 


0048 


0043 


0044 

c 


c 


c 

0049 


0044 


0047 


0040 


0049 


0070 

30 


c 

e 

c 


MAKOtlOOIN 
OAU rlfNTfN,¥4) 


OHiOK fiO Dif AULT 

ir4Hi|t.io;* ti OALL oirALTceNAiici 
IMNlUilQi* t| to TO m 
l#T «0 

NOLAlCiMNU) 

lOTil 

tMMClMQ,S*;i 0 ,H( 0 };i 0 «( O NDLAlCtM* * 

tf(M(8l«IO«M;OA|MC8|,fOi* *1 li TO 18 

H0LA0c8)4NC8) 

l#Tf8 

CONTImUO 


CNOCK tr valid CATIOOIIT LAOfL 


DO 14 ItliNfCAT 

ircCATNANIII.se'.lLAOfLl 00 TO 2# 

COnTINUO 
¥01 Tic#. 090) 

00 TO 10 
ONUN*! 

CALL |NTrf(|PT.¥.74.TNHNUH) 

CHOCK tr valid THiHE NUHOEO 

trCTHMNUHiLE.O'.OR.THHNUM.OEii) 60 TO 80 
HOlTEfA.040) 

00 TO 10 

write (4.080) OOP ADO 

add or R8PLACI 


R8AO<4«000) W 
CALL MONTCH.TA) 

ircwcDtOO.* t) wcdprepaoo 

trC¥(i).80.*At) 60 Ti 40 
tf(W(l).¥E^(Rt) WR|T6(4.030) 
ir(W(l).NE.«pi) 60 TO 80 

IRAOi window and clear tnehe on chaok 

CALL OLKTMNC 1C(1) « tC(8) . 1C(3). IC(4).TNNNUN. 10. lOP) 

DO SO UifNiSUO 

ip(Newlao(1),ns;cnun) 00 to so 

NACHASNCI) 

CNaOK( 1 )«IAN0(H. tCiM(NA8K(TMHNUH) ) } 

continue 


POSITIVE 00 NiOATiTE DISPLAY 




-I 


raRTRAN 

CATTHM, 

oon 

0072 

0073 

0074 

0075 

0076 

0077 
0070 
0070 
0000 
0001 
0082 




0003 

0004 

0005 

0006 

0007 

0008 
0009 

0090 

0091 

0092 

0093 

0094 

0095 

0096 


0097 

0090 

0099 

0100 

0101 
0102 

0103 

0104 

0105 

0106 
0107 
0100 

0109 

0110 

0111 
0112 

0113 

0114 


C 


tVwPLUl 

FTN 

40 

49 


09193191 2t«JUN»77 


90 


C 

C 

C 

e 


60 

70 


00 

90 


C 

C 

C 


777 


800 

009 

010 
820 
030 
040 
050 
060 
070 


V08«04 

>TR|BlOCKS/HR 
ReRADD«U<l) 
eoNTiNue 

NR|T6(OiO40) RRSREO 
RBAD(OiOOO) u 
CALL rR0NT(W,74) 
tf(W<l)«2Q*« M W(l)«R0S»lEfl 
tP(W(l>i6Qi*RM 00 TR 90 
tr(W(l)iEOi*NM 00 T0 90 
NR1tE(6.030) 

60 TO 49 
CONTINUE 
P0SnE6*W(1I 


RA0E 9 


00 BIT NANtRULAT!0N 0F CMASK 


lF(W(lI.6Q.*Nt) G0 T0 70 
1)0 60 1«1|N0SUO 

lF(NEHi.A8(|).NE‘.CNUM) QO TO 60 
M«CMASK(1) 

CMaSK(I)«!0R(NiHASK(THHNUmM 
continui 
60 TO 90 
CONTINUE 
DO 60 laiiNOSUB 

lF(NEUUAB(n,EQ*.CNUH) 68 T8 80 
M»C'lASKn) 

CMaSK(I)*I0R(M|HASKITNMNUmO 

continue 

CONTINUE 


CHECK IF N0RE ASStONHENTS DESIRED 


MRITE(6.870) 

CALL 0UTPUT(7) 

READ(6iOOO) U 
CALL FR0NT(Wi74) 

IF(W(i),EQ*' M 60 T0 777 
60 TO 10 

continue 

RETURN 

F0RhATI74A1) 

rORHATM BACK UP AND EKIT N0T ALLOWEDII 
rORHATCS enter CATE60RY AND THEHE NUH0SR >') 
F0RMATCS (A)00 0R IR)EPLACEt|2R,Ali • >M 
FORMAT!//' ••• INPUT ERROR •#•!} 

PBRmATI'I <P)08ITIVE or (N)E6A7IVE'i2X|AIi' >•» 
P0RMATI* CATEGORY NAME INCORRECT • TRY AGAIN') 
format!' THEME NUMBER INCORRECT • TRY AGAIN') 
format!/'! ADOITIONAI. ABSIONmINTS T IY)ES 0R CR 
END 


>') 


/y/ 




..J 










IS. 5 SOBROUTIMB CLUTHM 


HfiRTRAN iVMLUt V0a*Q« 0«l9«lt4 PkU 1 

CUUTHH,rTN /miBLlOKt/HR 

0001 ^ fUOROuTtNi CUitHM 

e THtS lUORfUTtNl aSOIQNS CLUSTillS TO TNlNOt 

c 


oooa 

0009 

0004 

0009 


0004 

0007 


iMOUetT INT6QIR (A*i) 

include KsooiaicAHscoMONiiNe* 

INDLUDC *SVie900*39CAMSPARAMilNC« 

RARAHETeN NAXCAT«40iHAXSUBs4eiMAxeHN94«NR|Xfi94«NLlN»it7|HAXrLO»90 
!• HAX V«ll< NOBTSilDO* DL$K I R»t 0 1 DSSK 1 RtlO « NAXACD«4i MAXACCt4« 
2NBSPWO*A»NBDTHB«10 

EQUIXALENCB (CliACDATE)ilC7itSBO}|(63iPPLABMC4«TXil*(C9iDt9KtOI 
INTBOER ClC440),e2(296)iC9(7i}|C4(340)iC9C4t9) 


0006 

0009 

0010 


INTR6ER ACDATEiSUBCAT.SUBPdPiCAlKKTieATTM 
BYTE CHNVECtNBCHAN.NeSUBiDaTeAtiOlTOLU 

CBNHBN/CBHI/ AGO ATE ( 2 . H AX ACC ) i C hNVEC ( NAXCHN « HAXACC) « NBCHANi N iSUBt 
tSUBeAT(MAXSUB)iSUBP0P(MAXSu6)ieATKNT(NAXeAT),CATTH(NAXeAT)«NBDBt 
2N0DUiNOTN(DBrCArfNOOrS)|D0rCLU(NOOTS) 


0011 

0012 

0013 

0014 
0019 


Cf 


INTEGER *OAT6S«SUNA2«ANALST«rLOOAV«O0TOAT,POATEliTDATEl 
INTEGER POATE2.TDATE2*PDATE3|TDATE3«CATNAN«D18KtDiRAND0HiGR|D 
BYTE DEL7LGiN0ACOil0tL6Ri8UNEL«NlTARTiNTYPEl*ALPaALP0 
BYTE PCTCT*PCTCT0.VAR.VAR0.OLA0 ELiTYPE 

C0NN0N/C0M2/ 1 SEOt Of LPLG I N0 aCQi aOaTBB ( 2 * HAXACO ) «S0IlGP( NAXACD) « 
lSUNEL{MAXAeD)iSUNAI(MAXAC0)«|NDATE(2)*ANAL8T(9)|PLDDAY(2li 
2O0TOAY(2)*NSTART,NtYPEliPOATIl(2)iTDATEl(2)iPOATB2C2)«TDATE2(2)« 
3PDATIS(2}*TDATE3(2 )iN0CATiCATNaH(HAXCAT)iALP(NAXCAT)iALP0« 

4 PCTCT I MAXCAT ) I PCTCTB, VAR ( HAXCAT) , VAR0 


0016 

0017 

0018 


integer EPLAQl,EPLA62iEPLAa3«EPLAQ4iErLAG9*UrLAQl*urU62|UrLAGS« 
1UFLA04 

INTEGER PriAGiOSKHNT 

eiNN 0 N/e 0 HS/PrLAGiO 8 KNNT. 6 rLAQiiE 7 LAG 2 «EPLA 68 «EriAG 4 iErLAQ 9 iUrLAGl 

l*UPLA62.UrLAQ3«UPLA04,NEWLABtMAX8U6) 


0019 

0020 
0021 


0022 

0023 

0024 
0029 
0026 

0027 

0028 

0029 

0030 
OOSl 
0032 
0039 


integer TXl«TYliTX8itY2|ACO|SP.Gf8iDTHIND,D0TARVtOHlN«6NAXtrUL 
integer 8PW|N0iCLAWND|CLUWN0 

C0NM0N/COM4/TXliTYiitX2|TY2i|XiitYlf lX2*tY2|AC0|8P(2)*tll<4),G(4). 
lB(4),DTHlNO<9|N0DTuO)i$PWlND<9|NBSPWDMNMtND(4)tNUHP0T| 
2O0TARY(ND0T8)iQMlN.6MAX|rUL(2i7)«eLAWND(8|*ClUHND(8l 
COMN0N/eBN9/OI9KfO.RAND0M(NO0T8>feRlD(NDBT8)iDLABELlNOOr8)i 
1TYPE(NO0TS)|RECLRC 
C0MM0N /L0C0M2/CMA8K 

C0MM0N /l00N/|e<4),TC(4),|X.iY,TX#TY,NX,NY 

OIHENSIBN !X(9l2)i!Y(9l2),TX(9i8)|TY(9l8) 

byte N<74) 

byte PBSNEGiREPADO 

OIHENSIBN HA8KI8)ieMA8K(60) 

data HA$K/"001i*'(l02t''004«nOlOi"020i"040«''180t<'800/ 

data P0SNEO|REPAOO /'P'i'R*/ 

IB«0 
I0P>1 

IS WRITE|6,810) 

C 
C 

c 


get the theme number and cluster numbers 

FBR THEME DISPLAY BP THE CLU8TBR(S)| 






► 


I 



i 











f0RTRAN IV«0LUS V0t«04 0fl94|14 t?«juN«77 HH I 

CLUTHHf7TN /T0|B|.0eK8/M4 

e 


0094 


f|. 6 Q «0 

0099 


OiAO( 6 *O 00 )H 

0094 


CAlL fMNT(H* 74 ) 

0097 


irtM(iMQ«<XM 00 T 0 777 

0090 


ir(U<l).EQ.* t| 00 TO 777 

0099 


ItTiiO 

0040 


CALI. |Ntrr (tPT,U| 74 «CI.UNUN) 


w 

c 

CHECK IP CIUOIBO NUHOEO tS VAttO 

0041 

It 

t P f ClUHUH » or . NOOUO*. OR « CUUNUH*, It , 1 ) HR t T| ( 4 1 090 ) 

0042 


IP(CUHUM,OT,NOSU 0 ;ORteiUNUH;i.t,l) 00 t 0 10 

0043 


CAU iNTPP CIPT|W| 74 «TMHNUH) 

0044 


tPCPUAOiEQiO) 00 TO 19 

0049 


tP(THHHUN,NE* 0 ) GO TO 19 

0046 


CHASKf MDNUH)«liRf H«MASK(HDTHH) ) 

0047 

r 

GO TO iO 


V 

c 

CHECK tP THEHO KUHBER t$ VAi .10 

0040 

1# 

19 

tP<THHNUM,QT.e;OR,THMNUH.|,T,l) HRtTE( 6 t 060 ) 

0049 


tP(THMHUH,GT.O'. 0 R«THMNUH'.kTtt) 60 TO 10 

0090 

20 

URtTE( 6 , 620 ) REPaDD 


c 

c 

r 

ADO OR REPLACE 

0091 


READ( 6 i 600 )W 

0092 


CALL PR 0 NT(Mt 74 ) 

0093 


!P(U(l).EO.* *) W(i)«REPA 0 D 

0094 


tP(H<l)(EQ.U') 00 TO 40 

0099 


1 P(U(i).nE.'R«) WRITE( 6 i 030 ) 

0096 


1 P(W( 1 )|NE.'R') CO TO 20 


w 

c 

c 

ERASE WINDOW AND CLEAR TMEHE 0 N CHASK 

0097 

w 

CALL BLKTHM( 1 C( 1 )i 1 C( 2 )iIC( 9 )iIC( 4 )iTHHNUH« 1 B( 10 P) 


C 

c 

r 

POSITIVE OR negative DISPLAY 

0090 

i# 

40 

REPaOO«H< 1 > 

0099 

49 

continue I 

0060 


WRItE( 6 , 040 ) posneo 

0061 


REAo( 6 iOO 0 ) U 

0062 


CALL PR 0 NT<W| 74 ) 

0063 


ir(W(l)*EQ.' •) W( 1 )bPOSNEG 

0064 


inu(l).EQ‘.*P') CO TO 90 

0069 


IP(W< 1 ).EQ**N«) 00 TO 90 

0066 


WR 1 TE( 6 , 030 ) 

0067 


00 TO 49 

0060 

90 

CONTINUE 

0069 


P 0 SnEG*W( 1 ) 


W 

c 

DO BIT HaNIPULATION OP CHASK 

0070 

w 

MiCMASK(CLUNUH) 




riRTRAN iVaPLUl 
CLUTNH«rTN 

0071 

0072 

0073 

0074 
0079 

0076 

0077 

0078 60 

0079 70 
0060 

0081 

0082 777 

0083 

0084 800 

0009 810 

0086 820 

0087 830 

0088 840 

0089 890 

0090 860 
0081 


09194114 t9«aUN«77 


V02«04 

/T9|Bl>CKS/H 8 
tr(U(i)tEQ«*i>n CMA8K(eLUNUH)*tfR(NiMASK(THNNUNM 
HDTHHiiTHMNUH 
tr(wCl),6Q,(Pt| 88 T0 70 
08 60 IfltNiSUO 

irc I.BOiCkUNUM) 80 70 60 
H*CNA9K(n 

CH ASK ( n « 1 00 ( H I H ASK ( ThKNUM ) ) 

continue 

continue 

91A841 
00 TO to 
continue 
0ETU0N 
F0KMAT<74A1) 

fO0N ATI'S ENTE0 CLUSTE0 NUN8E0 AND THENS NUMOI0 
roNHATCS (A)OQ 00 (OIBPlACE'iEX.AIi' >') 
FONmATI//* ••• INPUT ENRON ••••//| 

PO0MATC8 CPIOSITIVE ON (N)E0AT|VE«i2XiAlt • >M 
PONnATO CLUSTEN NUHOEP INCONNECT • TNT AOAINM 
PONmATI* theme NUHOEN INCONNECT • TNT AGAIN* I 
END 


PANE I 


>•> 


u 


> ! 




























1S*6 8DBR00TINE TWRITE 


MFIRTRAN |V«PUU8 V08«04 
TURlTEiFTN /TRlBuiCKS/WR 
C 
C 

e 

C 


09194198 89«JUN479 


THIS PR8QRAM URITS8 TM8 A8SIQNR0 
CIU8TER8 T0 THlpeS 


9ASI i 


0001 


9U0ROUTtN8 TMR|TR 

0002 


iMPLlelT 1NTS08R (A«i) 

0009 


DIMENSION eNA8N(60)iIXf9l8)«lVf9l8}«TXf918)*TV(9i8) 

0004 


dimension P|X(296i6) 

0009 


BYTE V(4096)i 0Uf(l96l 

0006 


equivalence (V(i)tPtx(iiin 

0007 


C0HN0N /2O0H/te(4) .TC(4} . tX| tY«TX|TY.NX«HV 

0000 


COMH0N /L0C0M2/CMASK 

0009 


tF(MY'.6T,128) 60 T0 9 

0010 


MY1«16 

0011 


n»my/mYi 

0012 


irfHY«N*MYl,NE«0) N«N*1 

0019 


GO TO 6 

0014 

9 

continue 

0019 


N«6 

0016 


MY1*MV/N 

0017 


|F<MY«N«HY1,NE;0) MVl«MYl«l 

0016 

B 

CONTINUE 

0019 


DO 60 iLaliMVl 

0020 


L«LL 

0021 


DO 10 I«1«N 


U 

C 

f* 

READ DAT* FROM CHANNEL FIVE FOR PROCESSING 

0022 

V 

CALL IRV(9.1Y(L)iFtxa.m 

0023 


L«L * MYI 

0024 


1F(L.6T,MY» 60 T« 19 

0029 

io 

C0MTINUE 

0026 

19 

lF(N,tE.4) CALL WAIT 

0027 


lhl 

0026 


P9l2 • 0 

0029 

c 

00 40 I«ltN 


V 

C 

READ cluster map FILE 

0090 

V 

REA0(6*TY(L)) 6UF 


w 

C 

PROCESS the data from CLUSTER MAP Ft|,8 


c 

0 

manipulate ThE theme OISRLAY ACCORDINGLY 

0031 

V 

DO 30 LINE*1,MX 

0092 


IN i IX(LINE) * P912 « 1 

0093 


M • IRYTECIN*i,Y) 

0094 


M *TXCL!NF| *l 

0039 


CLUSTR ■ IBYTElKfBUF) 

0036 


IF(CLUSTR’.EQiO) GO TO 30 

0037 


YUN) « 10R(M|CMASK(CLUSTRn 

0038 

90 

CONTINUE 

0039 


L ■ L ♦ MYI 

0040 


IF (LiGT.MY) go to 49 


increment R0tNTfP f8R V(NYI 



C 

C 


01194131 tf«jUN*77 


#A9i 8 


rfUTKAN IV«7LUS V08«0 a 
TMAIT f«rTN /T9l9L8eK8/HR 
C 


0041 

0040 40 

0049 49 

e 

c 

e 

c 


9b 

99 

00 


7912 ■ 7910 « 918 
CONTINUi 


URtTI 7R0CiS8i0 DATA lAON Tf eNANNOl. 7IV8 
rOR THiNB 0IS7UY 07 CLUSTIR8 


DO 90 tfl,N 

CALL |HVC$.|V(l)i7!XCl.l)> 
I • L*HY1 

irCL'iQT.NY) 00 TO 99 
CONTINUE 

|7|N.LE;4) OALk NAIT 

continue 

RETURN 

END 
























ORIGINAL PAOG IS 
OP POOR QUAury 


1S.7 8OBRO0TIMB CIABBL 


M^fflTRAN V02«04 Of |94M| 8fOUN*7T f A«l I 

CLABSkiFTN /TO lOL*CiCf/Mf 

0001 tUBROUT|«iC CLAflt, 

C 

C THIS PffQOAK CHANMI 6I.U8TIII L0m> 

c 


0002 

0003 

0004 
0009 


0000 

0007 


iHfLtelT INTBOIf U»ll 
INCUUOO •CSOOiSOCAHOCfMfMilBe* 
tNCLUOO •SVieS00t39eOM9fAllAH«tM0* 

OAfAMBTiA HAXCAT«O0|MAX9UB«O0iMAXCHNo4(Nf|X«ifO«llltN«U7|NAXrLDa90 
i * N AXXall f XDITOf 209* OCtK If tio • OilX |M10 • MAX AC0«O» NAXAOCoOi 
8NBSfMD«OtNB0TMD«10 

BOUtVAkENCB (CliACDATE)i (Ce« tOfiOtf (C9*PfUtMe4«TXl)* CC9«0|8KtDI 
INTIOEA ClC40f),e8(290)ie9(7l)»04C340t,e9C029l 


0000 

0009 

0010 


0011 

0012 

0013 

0014 
0019 


iNTIOgO AeOATEiSUiCATiSUBfeAfCATKATiCATTH 
em CHNVEC* NBCHAN. N09UB| DOTCATiOBTCLU 

C9NN9N/e9Nl/AeDATi(2.MAXAee)«eMNVBe(MAXeilNiNAXA0e},N9eNANtNB9U9« 
If UBC AT ( M AX8U9 > • 8UB999( MAXfUB ) • CATKNT IMAXOAt I I CATTNCNAXCAT ) • NBDf • 
2NB0U I A0TH| DBTC AT ( NDBT8 ) • OBTCLU ( ADBT8 ) 

I NTEOEO AO A TE8 * SUNaZ • ANAL8T « fliOOA V $ DBTDA9* PDATBIi TOATil 
tNTEBEO POATE2«TOATE2|POATE3*TDATBS*eATNAHtDt8KtBiRANBBBiOB|D 
OVTE DSLfLO* NBACO« SB lUQR* 8URSI., RBTaRT* NTVPEl* A|.9« A|.Pi 
BYTE PCTCT , PCTCT0* VAR* VAR0 «DLAb6L * TYPE 

C0NN0N/ceN2/l8SO«OiLrwB*RB*CQiAOATE8l2*MAXACD)*BBIt8R(HAXACD)« 
ISUNEU C HA X AGO ) • SUNAf f MAX AQD ) * t HO ATE f 2 ) * ANAlBT ( 9 ) • PkDO A Y ( 2 ) • 
2O0TOAv(2)|NSTART*NTYPE1*POaTE1(2}*TOATE1C2I*POATE8C8)«TDATE2(2)* 
3PDATE3(2)*TDATE3f2)«N0eAT«eATNAH(HAXeAT)*ALPfMAXCATliALPf* 

4 PCTCT ( M AXC AT ) * PCTCT0 , VaR ( HAXCAT ) « VAR0 


0016 

0017 

0018 


integer ErLA81*EPLAG2,BPLA09*EfkA04|Eri.AB9*UfUBl«UPU62»UruOS* 
lUrUAGA 

INTEGER PrtA6»D8KHNT 

e0HM0N/COM3/Pf LAO » DSKHNT* ERL AQl i Ef LA62* EPLAGS* EPLAB4 i EPLAB9i UFLAOI 
l*UPlA62*UrLAQ3«UrLA04«NEWLABCMAXSUB) 


C« 


0019 

0020 
0021 


0022 

0023 

0024 
0029 
0020 

0027 

0028 

0029 

0030 

0031 

0032 

0033 


integer TXl*TYl*TX2«TY2»ACn|8P,G*B«PTMtRD,D0TARV*OM|N*QHAX*rUL 
integer SPU|NOiCLAWNO*CLUWND 

C0MN0N/C0M4/TXl*TYi«TX2*TY2*|Xli|Yl»|X2*tV8»AeDl8P|3)*lllC4}«6(4l* 
10f4)«OTutNO(9«N0DTwO)*8PM|NOf9,A08RMBMMHtNO(4|fNUMO0T* 
2D0TARY(NDeT8)«6H|N.GMAN,rULl2*7l«CLAHNO(BI«CLUURB(8l 
C0MM0N/COH9/O I SK 1 0 * R ANO0 H ( nD 0TS ) •GRID! NO0T8 ) * OLABEl f RD0T8 } * 
1TYPEInO0TS),PECL0C 

C0MH0N /10C0H2/ RMASK 
dimension CMASK(AO) 
byte W(74)iLA8ELf2) 
equivalence C|LABEL*LA9El(1)} 

IPLGPO 

NaNoSuB/20 

ir(N08Ue.NE*N*BO) N«N#1 
IPIN.GT.S) N»3 
10 1BE6«1 

IENO-20 

irilENO.ST'.NOSUBI IEN0*NP8U8 

c 

C list TME clusters ARB BATEBBRIES 

C 





Bflf4|4| tt«WtfN«7T 


Mi t 


ffRTBA»l IViTlUt V 0 t *04 
e^AjlktfTN ^TUflLfOKt/MII 


Qi 
B«99 
0094 
0097 
0090 
0097 

0040 

0041 


90 

90 


e 

e 

e 


Of to |«1«N 

U 7 )TiC 6 «OlO) f«I.J 4 |Ma«tiN 0 t 

OKtTiU.OaOt CCATNAMlNlMlAlCjDtJtlOIOillND) 

t900«|0l0*t0 

fPMOe||MO*aO 

ir(tfN 0 ; 0 T,lii 8 U 0 ) lONOtNOOVi 
CfNTIliUI 
eONTlNUi 

Oir U9I9 I77UT0 • eiuotlll 7UM8IK AND lAMl. 


0042 

0049 

0044 

0049 

004A 

0047 

0040 

0049 

0090 

0091 


tf(l7lO,N|,Ol WOlTiUiOaO) 
truri.o,io«o) wRiTiUioaoi 
ROAOUiOOO) W 
OAU fNiNTCN,74> 

trio*i 

irCM(lMO*«kM 00 TO 10 
lffH(i),eO^(X*) 00 TO 777 
tf(M<i).IO.* »l 00 TO 777 
tOT • 0 

CALL lNTrFlt7T«N,74«CLy9M0| 

CHOCK ir CLUSieo NUNOIN to VALID 


0092 


I r < CLUONfl • LT . i; 00 • CLUSNO « OT . WOOUO l NO 1 Tf C 6 , 040 » 

0099 


tr(CLU 0 NO,LT«i; 0 O«eLU 8 N 0 '. 0 Tt«i 0 SU 0 ) 00 To 90 

0094 

40 

IPTalpTn 

0099 


irUPTtOT.NOSUOl MO 1 TEI 6 . 040 ) 

0096 


intPT« 0 T,NO 8 U 9 ) 60 TO 90 

0097 


irCu(lPT).iO,« •; 0 R,U( 1 PT|.EQ.«,«) OO to 40 

0090 


LAOSLfl) • HCtPT) 

0099 


LAOELft) 9 H(|PT« 1 I 


C 

C CHOCK !F LAOfL IS VALID 

C 


0040 


DO 90 1 SI • NOCAT 

0041 


Iff iLAOEL.EQ.CATNAHUn GOTO 40 

0042 

90 

continue 

0049 


HO|TEf 4 . 090 ) 

0044 


Ot TO 90 

0049 

40 

NEUlAB(CLUSN 0 )s| 

0044 


6 ( TO 90 

0047 

777 

continue 

0040 


OETuNN 

0049 

400 

ff 9 HAT( 74 Al) 

0070 

410 

rOOMATf/' CLUSTER M 0 I 9 ) 

0071 

•20 

rORMATft LAOEL *t 20 fiX,A 2 |/l 

0072 

•90 

f 8 RNATf/*S fUlST 00 CLUSTER NUHSEO THEN LAOEL >*1 

0079 

•99 

roRHATl/*! CLUSTER NUMOER THEN LAOEL 9 M 

0074 

•40 

fIRMATl//* ••• INPUT ERROR ••••//! 

0079 

•90 

format (• INCORRECT LAOEL t«i TRY AOA|N<t 

0074 


END 








> 










IS. 8 SOBROUTINE GETCOO 


HrMTRAN IVMIU8 V82«08 0f|l4lM 29«JUN«77 PMB t 

OITC0I«PTN /T8I8L0CK8/H8 

0081 SUOOOUttNE OETCOKiCiTei HIT) 

C 

e tH!S M8Q8AN 8ITS COIIOiNAteS PMN TMi U8|8 

e no THI CkUSTlR MAR riLI AND TNSmE OtHUAV 

c ir eiiROfNATEi ithir tSin the dePaulti are 

C OEStRSO 

c 


0082 

0003 

0004 
0000 


0000 

0007 

0008 

0009 

0010 


0011 

0012 

0013 

0014 
0010 


0010 

0017 

0010 


0019 

0020 
0021 


0022 

0023 

0024 
0020 
0026 


0027 

0020 

0029 

0030 


iHRLletT |NTI0ER(A«2) 

include HSOOtSieAHSCENiMilNe' 
include *SVie300i33eAHSRARAN‘«|NC« 

RARAMETbR HAXCATt«0iMAX$U8t00|MA)(CMNi4.NR|X«t9O|NLtN«U7tMAXrLD«90 
l*HAXV«ll»NO0T$92O9«OL8KtR9lO*OSSK|R9lO|HAXACD»6»NAXACCM# 
2N0SPUO«O*N0DTWDtlO 

equivalence (Cl|ACOATE)i(e2itSEQ)*(CSiPrLAOMe4iTXl)«ie9,OtOKID) 
INTEQER ei(409}|C2(296)iC3(7l)|C4(340)«CI(029) 

C» 

INTEGER AC0ATEi8U8eAT|SUBRfP«CATKNTi6ATTH 
BYTE CHNVfiCiNBCHAN.NOSUBiOaTCATiDOTCLU 

COMHON/COMI/ACDATE ( 2 • HAXACC ) I CHNyEC I NAXCNNt NAXACC ) * NBCMAN, NOSUO* 
ISUBCAT ( MAX9UB ) « SUBPOP ( MAXSuO ) i C ATKNT ( HAXCAT) • CATTHCHAXCAT ) «Nf DO* 
2N0 DUiNOTN|OOTCAT(ND0TS)|BOTCLU(ND0TS) 

C* 

integer A0ATES(SUNA2iANALST|PL 00AY«D8T0AV*PDATE1«T0ATE1 
INTEQER PDATE2iT0ATE2.P0ATE3|TDATE3ieATNAN«Dt8K|D«RAN0fRi6R|D 
BYTE OElPLO* N0 ACOi S0 1 LOR • SUNEL * NST aRT * NTYPEl. ALP i AlR> 

BYTE PCTCT«PCTCT0iVAR|VAR0*OLABEl*TYPE 

C0NH0N/e0M2/|SE6iO6irLQ*N0ACQiAOATES(2.HAXACD)«SOlL6R(HAXACD)* 
lSUNEL(NAXAC0)tSUNA2(HAXAe0)iIHDATE{2)iANALST(9)iPLDDAY(aii 
2O0TOAY(2l«NSrARTiNTYPEliPDATEl(2)tTOATEl(2)|POATE2(2)*TDATE2f2)« 
3POATE3(2)*TOATE3(2)|N0eAT«eATNAH(HAXCAT)iALP(NAXCAt)iALROi 
4 PCTCT(MAXCAT)(PCTCT0«VAR(MAXeAT)tVAR0 

C« 

I NTEGER OFL AQl I EFL A02 • EFLAQ3 1 EFL AG4 1 EFLAOO* UFLAQli UFI>A02* UFLA63. 
1UFLA64 

INTEGER PFLAGfOSKHNT 

C0NM0N/e9M3/PFLAQiOSKHNT|EFLA6iiEFLAG2iEfLAQ3tErLA84iEPLA6O|UFLAOl 

1iUPLAQ2.UFLA03,UFLA64.NEWLAB(HaX0U0) 

C« 

integer TXliTYl«rX2iTV2|ACn|SP,6,B.DTMtNO«O0TARV*6MlN,QNAX,FUL 
integer SPWINOiCLAWNDiCLUWND 

C0MN0N/e0H4/TXl|TYiitX2,TY9itXii|YlilX2ifY2iACD|8P(2Mll(4),Q(4)« 

ie(4)iOTNlND(9tN0OTuD)(SPWlNO(5.N0SPND)i|MNtNO(4)fNUHO0T« 

2O0TARy(nD0TS)iQM|N.OMAX|FUL(2i7)|CLANNO(0)iCLUNNDU) 

C0MN0N/C0N9/0 1 SK f 0 .RANDOM ( NQ0TS > « GRi 0 ( NO0TS ) i DLAOEL (NDf TS ) « 
lTYPfi(ND0TS)|RGCLOC 
dimension tC(4)iTC(4) 
dimension C00RQ(4) 
byte H(74) 

ISET*0 

C 

C GET default coordinates 

c 

iCtDalXl 

tC(2)«lYl 

IC(3)«tX2 

IC(4)«IY2 


/ 5 (/■ 




FORTRAN 

iVaPLUS 

V02«04 09154158 29«JUN«77 RAGE 2 

GETC00|FTN 

/TR|Bl0CKS/NR 

0031 


TC<D«TX1 

0032 


TCt2)*TYi 

0033 


TC(3)«TX2 

0034 


TC(4)»TY2 

0035 

10 

CONTINUE 


W 

C 

r 

OISPLAV default INRUT 600ROINATES 


V 

c 

c 

USER hay change coordinates 

0036 

V 

WR1TE(6«820) TC 

0037 

0036 


URtT6(6.830) OUlfiTKr. 

CALL 0UTPUT(7) PArp 

DilKt.tOO) a Ot' Poos 

CALL FR0NT(W,74) ” QUAXJTV 

0039 

0040 


0041 


lF(W(i).E0.'9M 60 TO 10 

0042 


IFfWliltEQ.' M GO TO 4Q 

0043 


IF(M(l>.EO.'X«) Q0 TO 777 

0044 


IPT • 0 


It 

c 

c 

CHECK IF INPUT COORDINATES ARE VALID 

0045 

V 

DO 15 Ial.4|2 

0046 


call tNTFF(IPTfU«74«CO0RO(n) 
ir(C0OROm'.OT«NPIX,0R,Ce0RO(I).LT,l) GO TO 20 

0047 


0048 


call INTFF(IPt»M,74,C00RD<n) 

0049 


tF(C0ORD(t«l);GT,NLlN.OR«CO0RO(I*l)*LTil) 60 TO 20 

0050 

19 

continue 

0051 


GO TO 30 

0052 

20 

CONTINUE 

0053 


WRITE(6.850) 

0054 


60 T0 10 

0055 

30 

I* 

CONTINUE 


w 

C 

c 

SAVE NEW COORDINATES 

0056 


DO 35 |«1,4 

0057 


TC(I)aC0ORDm 

0056 


ceoRom«o 

0059 

39 

continue 


C 

DISPLAY default OUTPUT COORDINATES 


u 

C 

p 

USER HAY change COORDINATES 

0060 

V 

40 

WRItE(6,640) IC 

0061 


MRITE(6(830) 

0062 


Call 0UTPUTI7) 

0063 


READ(6i800)W 

0064 


CALL FR0NT(H,74) 

0065 


1F(M(1).EQ.«R«) 00 TO 10 

0066 


IFIWdI.EQ.' •) 60 TO 70 

0067 


IFCMdl.EO.'Xn GO TO 777 

0068 


IPT.O 

0069 


DO 45 I>1|4 

0070 


call INTFF(IPT|U,74|C0ORD(D) 


/i7 






fiRTKAN |¥»RlU> V02«84 09i94|8« >9»JUN«77 MQ6 8 

OETC00«rrN /TRI0L0CKS/WR 

8071 49 COnTINUI 

e 

e CHECK tr OUTRVT CO0ROtNATI8 A08 VAUO 

e 


8872 

8873 
0874 
0079 
0874 
8877 

8078 90 


I r C C0OKD ( 3 } • 80‘i 0 1 COORD ( 4 ) iCOORD ( 2 1 *NL |N 
ir(C00RO<3)iEQ.O) C00RO(3)«C00RD(i>*NRix 
00 90 UiiO 

tr(e0«RO{n;LR|912tAND.Ce0RD(l)iQEil) 80 T0 90 
WRITE (4* 090) 

00 T0 40 

continue 


c 

C SAVE NEW COOROtNATES 

C 


0079 

080Q 

0001 

0002 

0003 

0004 
0009 
0004 

0007 

0008 
0009 

0090 

0091 

0092 


DO 40 laliA 

iClDaCOORDU) 

COORO(t)«0 
40 continue 

70 ISET41 

777 CONTINUE 

RETURN 

000 P0RNATI74A1) 

020 rORMATl/* 8EQHENT COORDINATES ARB >*il3ttt*«t3«4Xit3iS*f 13) 

030 porhatos new coordinates ip oesIred X«) 

040 PORNATC/t DI8PUV COORDINATES ARE >*il3*t«M9*4Xi|3«**M3) 
090 P0 RmAT(*S ••• ERROR IN COORDINATES « TRV AOAIN •••') 

900 PORmATI//* INPUT ERROR ••••) 

END 



















IS. 9 SUBBOnTIMB 80000M 


MriRTRAN 

tSlHiPTN 

0001 


0002 

0003 


0004 

0009 

0000 

0007 

0000 

0009 

0010 
0011 
0012 
0019 
0014 
0019 
OOlO 
0017 
0010 

0019 

0020 
0021 
0022 
0029 
0024 
0029 
0029 
0027 
0020 
0029 

0090 

0091 

0092 


09199110 29«JUN«77 


PAoe 1 


|9«HUS VQ2«0< 

•UORiUTiMB 10f«9M<|XlilVlttXfilV2iTXlifVlitX2«TV2ilX«|V|TX«Ty« 
1 XiiVl.NX.NVtNXI 

THIS PROaiUH MAPS TH8 OLUSTEM NAP PtLi TO THi 
THiHi DISPLAVi THB HAP OENEPATiD PREVIOES . 
POP lOONiNO UP OR OOMN NAKlNO TNE CLUOTER NAP 
LAROeR OR ONAkkER THAN !TO ORfOlNAL 100 X 117 

iHPLielT INTOOBR (A«2) 

CONrON /PATAL/IOiRR 


VARIAOI.S OEURATtON 

iXl«tVl*tX2»ty2 are USER INPUTS PPR TNE LiOATION 

OF THE Cluster on the Thshs oisplav 

tXi.m«TX2.TY2 ARB (1*1) ARE ClOOillT) PER TNE 
CLUSTER MAP display 

HX AND NY ARB THB NUMBBR OP PIXELS AND THE NUMBER 
OP limbs op display 

NX IS THE NUmOBR PIXELS INPUT PRON THE CLUSTER MAP 
tX AND lY ARE THE DISPLAY OUTPUT LOCATIONS POR THE 
CLUSTER HAP values IN TX AND TY 
is ■ 1 MEANS input COORDINATES (fXl«|Yl*IX2.IY2) 

are erroneous 

X2 AND Y! ARE THE X AND V EOON FACTORS 


real XiiYE 

integer |XC9l2)itYl912)«TXCSl2|«TY(9l2l 

10*0 

lFClXi«tX2} 1.2«S 

I Ql*l 
NXp1X2«|X1*1 
GO TO A 

9 Ql«*l 

HX*tXl«|X2«l 
4 1P(TX1»TX2)9«2«0 

9 02*1 

T0«TX1 

NXPTX2«TX1*1 
GO TO 7 
0 02««1 

TBPTX2 

NX«TXi»TX2*l 

7 X2RQl*NX/fL0AT(TX2«TXl*Q2) 

DO G intHX 

ix(t}4txi*oi«i|«i) 

0 TX(|)4TX1*Q1*(|*1)/XE 

9 IPfTVl«TY2)10i2ill 

10 TO«TYl 
10«|Y1 
Q4P1 

TYDiTv2«TYin 
GO TO 12 

II TO»TYt 
I0«|Y2 


09 199 I II 29*JUN«77 


9AOi 8 


F0RTRAN tV*l»LU9 

809HtfTN 

0034 


0039 

003A 

0037 

0030 

0039 

0040 

0041 

0042 

0043 

0044 

0045 
0040 
0047 
0040 
0049 


it 

33 

14 

19 


10 

2 

000 


V02«04 
/TRiilOCKS/HR 
Ty0iTfl«TY2*l 
ir(|Vl«tV2)13i8it4 
HY*ir2*lYl*l 

00 T0 19 
RY»|Yl«|V24l 
Q4«*Q4 

V3>FLOAT(HV)/FL0AT(rYO) 

01 10 |«1.MV 
!Y(I}«I0«O4«(1«1) 

TV(|)«T0«<t»t)/Y2 

RiTuRN 

WRiTECAtOOO) m.lYl.tX2,tY2.TXl.rYl.rV2«TY2 
FORnATC input C00ROINAT CRRfR IN 20000H'/* S010) 
20*1 
return 

END 


ORIGINAL PAGP k 
O f' POOR QUALITY 







-iu» >* 




m- 



t 


15.10 SUBRODTIHE REPORT 

HftRTRAN tV*RLU8 V02«Q4 
TREPeRiFTN /TR|6 u0CK8/WR 
0001 - - 
0002 

0003 

0004 000 

0005 


09 I 55 I to 29>JUN;77 


RASE 1 


Subroutine report 

URlTEcAtBOOl 

RETURN 

rORHATC* SUCCESSFUL CALL TO REP|RT«) 
END 


page is 

' ^ QUALITY 


/ 6>3 


I 



15.11 SUBROUTINE DEFALT 


MrSRTRAN |V»HUt V0S«0« 
DfrALTtfTN /TRiaLtCKS/HS 


df I 99 I 91 29«JUN«7t 


9ASI 1 


0001 

0002 

0003 

0004 
0009 


0006 

0007 

0008 

0009 

0010 


0011 

0012 

0013 

0014 
0019 


0016 

0017 

0018 


e 

c 

c 

c 


e* 


c* 


c« 


c* 


THIS MSQRAM ASIANS OlfAULT 6ATiilR|l3 
T8 TH5M68 ORIGINAL PAGE IS 

8UtRBU7|NB 05f ALTICHAfKI OP POOR QUALITY 

iNRUtelT INTesiMAal) 
iNeuUDC •csoo«93eAM8esNf4«tNe' 
t NCIUDS • SY 1(300 1 3 3CAHSP AR AM 1 1 mO t 

PARANSTsR MAKCAT*60|MAV8U9a80«MAKCMN«4«NRtXn96iNktN«li7iMAXf|.D990 
liNAXValliNDfr8f209.DLSK|Pal0iD88K|Rfl0«HAXAeDP6«NAXAeCa4* 
2NSSPWO>6fNPOTMO«10 

SQUIVAUiRCB (Cl|ACDATE)i(C2it3EO)«{C9tPFU6)«ie4«TXl)i(C9iO|8K10) 
INTBSER 61(469) «e2(296)ie3(7l)«04(340)«C9(629) 

I NTEOER ACDATE . SUBCAT « 8UBP0PiCATKATt CATTM 
BYTE CMNVSCi N 86HAN . N8SUB t O0f CAT# OSTCkU 

CBMM0N/e8Ml/ACDATE(2(MAXACC)iCHRVEe(NAXeMN*HAXAee).NBCHAN»NISUB* 
iSUBe AT ( mAXSUB ) « SUBVBP I MAX$UB ) i C ATKNT ( M AXOAT ) « C ATTNt NAXSAT ) i N0O8 • 
2N0DUiN0TH*D0TCAT(ND8TS)tO0rCLU(ROBT8) 

INTEOER ADATBSiSUNAi.ANALSTiPkOPAYtOSTOAVtPOATEltTOATEl 
INTE8ER PDATE2«TBArE2,POATESiTf)ArS9ieATNAM«OtSKt0*RARD0NiOR|B 
BYTE DElFLQ, N 0AC&I S0! k&R i SUNEk. NST aRT« NTYPEI* A kPi AkPB 
BYTE PCTCT«PeT6T0i VARi VAR0*OkA0Ekf TYPE 

e0NN0N/C0N2/lSBQiD8LPLQiM04CQiADATEI{2«HAXACD)*S0|LORCMAXAeO)« 

lSUNEkCMAXAC0)iSUNA3(MAXACD).IMDATE(2)*ANAkST(9)irk00AY(2)« 

2D0TOAY(2)«MSTART*NTYPEl|POATEl(2)irDATEll2)«POATS2(2)|TDATE2l2)i 

3P0ATB3(2)*TDATE3(2)|NaCAT«eATNAMfMAXCAT)«AkPfMAXeAT)iAkPB| 

4 PCTCT(MAXeAT)|P6TCT0tVAR(HAXCAT)«VAR0 

IMTEBER ErLA6l,EPLA62«EPUAQ3«EPkA64iEFLA8S«UrkA01«UFkAa2iUPkAQS« 
1UFUA84 

INTEOER RFUAQiQSKNNT 

C0NH0N/C0N3/PFLA8|O$KHNT*EFkAGliEFLAa2,ErLAOSfEFkA64(ErkA69|UFLA6l 

liUFLA02«UFLA63«UFLA64.NEWkAB(MAX8UB) 


0019 

0020 
0021 


0022 

0023 

0024 
0029 
0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 
0039 


integer TXliTYl«rX?«TY2|AC0|9P«0,B,0TMIN0iD0TARY«aMlN,QMAX|FUk 
integer SPU|NOiCLAWNO|CkUWNO 

C0HM8N/C0M4/TXl,TYiiTX2fTY7itXlifYl«|X2itY2<ACD|8P(3)«Ill(4)(Q(4)« 

ie(4),OTulND(9iN0DTrfO)(SPW|NO(9«N0SPHO)(|NHlNO<4)|NUMD0Y| 

2D0TARY(ND0TS)(QMtN.6HAX,FUL(2*7)|CLAUND(8)tCLUUND(0) 

C0HH0N/C0M9/DI8K1O«RAND0N(nO0TS),GRID<NDOTS)iOLABElCND0TS)« 

lTYPE(ND0TS)|RECk0C 

OINENSIBN CMASN(60)|MASK(8) 

data MA8K/"001«"002«'«004.«010i''020i''040«*100«p200/ 

UR|TE(6|600) 

D0 SO laliNGCAT 

uR|TE( 6|810) CATNAM(|),t 
00 20 J«liN0SU8 

lF(CATNAM(NEWkABCJ))iNE«eATNAH(|)) 00 T0 20 
MaCHASK( J) 

CHASK(J)«|0R(M«HASK(|)) 

20 continue 

30 continue 

return 

800 F0RmAT</3X| 'DEFAULT*/) 






riRTRAN tV«PLUt V9t»0« OfltflU t••WUN•Tt 

OlfAUTtfTN /TKlMCKt/MR 

00S« no ffKNATt9K|At«8K*tll 

0097 INO 


Mil 8 








IS. 12 gOMOUTIHB C0MD18 

MITIUN |V»HUI V0S*04 
lOtti^TN /TM| 8 LfeRt/Ng 

It tUMtUTlNi CINOII 


Of I If I «t 


f A8i t 


eiNOITttNAL ekUITif MAf PltPUV 

tfURCI MIORaA • CtSlilOOtefNDtt.rTN 

MRITTIN BY • OIRAWO OHAMRARNf 

THIS RRIQRAR flNDl TN8 CfRDtTIfNAL CkUtTiRS 
AND MfVIOM {IR THlRf OS SPLAY IP TNffl 
CLU8Y8R8 ANO ThI CATEQ8RII8 

INPLtelT iNTSOlRlAai) 

INClUOS «CS0Q«8]CAN8C8H8«l,tNe! 

1 NOLUDE * 8Y I (300 • 30eAH8PARAM . 1 nC t 

parameter MAXCATMO|MAX8UBMO|MA)ICHNa4,NPiXtifA*NLiNm7iNAXfLD«SO 
iiMAXV«iliNDBT8t20f.DL8KtP*tOt088MtP*iO»NAXACD«AiMAXACCM| 
2N88PUD«AiNOOTWOtiO 

fiOUtVAlERCS CCtiACnAT6)ifC2ilSEQ)i(C3iPriA0},(e4«TXi)*(CStD|8KiD) 
INTEOER 01(409), e2(286)ie3(n}|e4(S40),C9(ftf) 

INTESfR AeDAT8,8U8eAT,8U8PPP,CA!KRTiOATTH 
OYTE CHNVfie,N8CHAR.N08UB,DPTeAt,OfTCLU 

e8MN8N/CfHl/ACDATf(2,NAXACC)iCHNVEC(MAXeHR,HAXACe),N8CHAN,Rf8gB* 
iSUiCAT (MAX8U8 ) • 8U8P8P (MAKOtlS ) , CATKRT (MAXOAT) , CATTH( RAXCAT) , N8O0, 
2N0DU , N0TH, D0TC AT ( NO0T8 ) , O0TCLU ( RD0T8 ) 

I NTBOBR ad ATB 8 , 8UNAI, ANAL8T , fLDO AY , 08 TDAV , POaTEI , TOATEI 
INTEGER POATB2,TOATEt,POATSS,TOATES,eATNAM, 018X10, RANOONiQRID 
8VTE OELfLG, NOACO, SOI LGR i SUNBL , N8T aRT , NTYP ll, ALP, ALPS 
BYTE PCYCY, PCTCTR, VAR, VAR0,OLA0 El, TYPE 


integer EFLAGl«srLAQ2,EPLAQ3,ErLAG4,EPLAG9,UfLA0i«urLAG8,urLAG3< 
IUPLAGa 

integer PfLAG,08XHNT 

C0MM0N/e0M3/PfLAG,b8KHNT,BrLAGi,BPLAG2,fiPLAOS,ErLAO4iEPLAO9,UfLAGl 

liUPLA62.UrLAG3,UrLAO4,NEWLA0(MAX8UB) 

integer TXt,TYt,TX8,TV2,ACO|8P,9,|,OTN|NO,O0TARV,6Ml*l,GNAX,rUL 
integer 8PU1N0,CLAUND,CLUUN0 

e8MM8N/efM4/TXl,TYl,TX2,TV9,|Xl,tYl,tX2,|Yt,AC0t8P(8),Ili(4),G(4), 
10(4),DTMlNO(S,N8OTuO),SPHlNO(9,N0SPMD)i)MWlNO(4),NUND0T, 
2O0TARV(ND|Y8),GM|N,GMAX,PUl(2,7),CLAWNO(O),CLUMND(0) 
e0MMfN/CfM9/O|8KIO.RANOfH(NO0T8},8RSO(NO0T8),OLAOEL(RDfT8), 
1TYPE(nO0T8),RBCL06 
C0MN0N /L0O0M2/CNASX 

C0MM0N /i00N/te(4),TC(4),IX,iY«TX,TY,MX,MY 
C0MM0N /PATAL/I0.RP 

dimension tX(9i2),IY(9l2),TX(9l8},TV(8l2) 

OlMENSlfN eHA8N(O0l« C08RO<4) 

DIMENSION CONOCNAXSUB) 








rflRTRAN iVvRLUt VQ2.04 


CfNDlSirTN 

0029 

0030 

0031 

0032 


09195141 


'TRlBLiCKS/WR 
byte H(74)« ATINE(B) 
CALL 0UTRUT<27,12) 
CALL lOAT6(MHtOD*YY) 
CALL TlNeiATIHE) 


29«guN»77 


RARE 2 


C 

C DISPLAY standard HEAOINO AND PR0QRAH NANE 

C 


0033 

0034 


0019 

0036 

0037 

0038 

0039 

0040 

0041 


0042 

0043 


0044 

0045 


0046 

0047 

0048 

0049 
0090 


0091 

0052 

0093 


0094 

0059 

0096 


C 

C 

e 


10 


19 


c 

c 

c 


c 

c 

c 


20 


C 

c 

c 


29 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


so 


UR|TE(6,S20) NM,OD«YY*ATtME 
MRtTE(6«010) 


CHECK nearest NEIQHB8R FILE EXISTANCS FLAO 

IF(EFLA84.NE.n UR!TE(6«890) 
tF{EFLA04,NEa) RETURN 
IFLQRl 

continue 

00 15 ItliNAKSUB 
CHaSK<I»«0 

continue 

SET coordinates 

CALL OETCOOdCiTCiISET) 
trilSET.EQ'.O) SO TO 777 

ALLOW FOR EOOHINS UP OR DOWN 

CALL ZO0O0H(|C11)iIC( 2 I • 10(3) »tC(4)«TCCl)tTC(2)<TC(3) *70(41 • 
1 IX«|Y,TX,TV|DXZ»OY2|MX|HV«DNX) 

IF(Ze’.EO'.l) 60 TP 10 

SAVE coordinates IN GLOBAL COMMON 


OT S' '’^8 R 

fOOR QVAU^ 


DO 25 I*1|8 

IF(I.LE.4) CLUHND(|)»TCU) 
IF(I.LE'|4) 60 TP 29 
CLUWND(|)*IC(I»4) 

continue 


FIND conditional CLUSTERS 

CALL C0NOIT(C0NO.ISET) 

IFUSeT.SO.O) 00 TO 777 
CALL 0UTPUT(27il2) 

LIST USER OPTIONS 

THE options aREI 

1 • LIST 0P CLUSTERS* CATEGORIES* AND CONDITIONAL C 

2 • CATEGORY T0 THEME ASSIGNMENT 

3 • CLUSTER Ti THEME ASSIGNMENT 

4 • CLUSTER label CHANGE 


URITE(6*630) 
60 TO 35 
WR|TG(6«840) 





riRTRAN tVaPLUS 
CINOtS.rTN 


0017 

OOfO 

0090 

ODOO 

0001 

0002 
0009 
000« 
0009 

oooo 

0007 

OOOO 

0009 

0070 

0071 

0072 


0079 


99 


40 


C 

C 

C 

c 

c 

c 


V02«04 

/T2iBl9CKt/HR 
coil. •UTPUT(7| 
OBODCOtOOO) M 
eoU PMNTOi«74) 


09199141 29«JUN«77 


PAQI 9 


|PfM(t),fO.»t 

iriw(li«fQ;*t 

tr(M(i)iiQ.*2 

ir(u(i)iCQ.*2 

irfwfi}«f0i*9 

ircu(iMQ,«9 

ir(HCi»,fQ.*4 

tr(M(i),fQ;*4 

iP(w(i).to.«x 

MRtTf(O,0e0) 

CO TO 90 
C2NT1NUE 


CALL TWRlTf 


) Of TO 40 

) CALL LIfttiCONOitPLQ) 
} Gf TO 90 
) CALL CATTHP 
) 60 TO 90 
I CALL CLUTNM 
} Of TO 90 
I CALL 6LABIL 
) GO TO 90 
) Of TO AO 


WRITE CLUSTER ASStONNENT TO THERE 


EXIT OR REOIaRT option 


0074 

0075 

0076 

0077 
0070 
0079 
OOOO 
0061 
0002 
0009 
0004 
0009 
0006 

0007 


0006 


0069 

0090 

0091 


60 HR|TE(6,870} 

CALL 0UTPUTI7) 

RRAD(6iOOOI W 
CALL PRfNT(W.74) 
tPIU(l),6Q;*R») 60 TO 10 
inw(l)«60«*XM Of Ti 777 
WR|tE(6,000) 

Of TO 60 
777 continue 

return 

600 P0RMATI74A1) 

010 fORHATC/lOX««C0Nn|T|0NAL CLUSlER HAP f|sPLAV/NAV 1977(| 

020 r0PHAT(/4OXi«DATEI M2» */* • 12* V* t |2t 
1 /40X|tT|MSl SOAl) 

090 r0RMAT(/* USER 0PTI0NS ARE**/ 

1 • 1 • LIST or CLUSTERS* CATEqOR|ES| AND CONDITIONAL CLUSTERS**/ 

2 * 2 « CATEGORY TO THENI ASSIGNMENT* */ 

9 * 9 • Cluster to tmehe assignment**/ 

4 * 4 • CLUSTER LABEL CHANGES*,/ 

5 » X * EXIT**/ 

6 * CR rOR CONTINUE*,/ 

7 *s enter option >*) 

040 porhati/* user options are**/ 

1 * 1 • LIST, 2 • CAT TO ThM, 9 • CLU Tf TMH* 4 • LAO CHANGE** 

2 * ElXlIT, CR»,/ 

9 *s enter option >*| 

670 PORmATI'S CRJESTART OR E(X)|T >•) 

060 POPmATI* input error « TRY AGAIN* I 

690 PORmAtC* EPLAQ4 |S NOT SET TO 1*,/ 

1 • nearest neighbor data not availaole*} 

END 


0092 



















■rttiiiltiiiiitfi'iM 
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ORIGINAI PAGE t 


15.13 SUBROUTINE COMPIT 


HrSRTRAN iV^tUS V0S*04 OS 1 9« 1 00 2SOUN»77 

eONDIT.fTN /TR|S|.S0K|/WR 

0001 SU§R0UT|Ni COMO lT<C0NDtl SET} 


C 

0 THIS RRSSRAN OltERMIMEO UNION Sf THE 

0 CLUSTERS ARE OtNOlTlSNAL 

0 


RAfifi 1 


0002 

0009 

0004 

0005 


0006 

0007 


iNRLtelT tNTEQIR(A«i) 
include •C900tS3CAMSeSMON||NC* 

I NCLUOE * SV I esoo 1 3 SCAHSRAR ah , 1 nc t 

RARAHETBR HAXC ATt60 1 HAX8Ue«60 » hAXCNNp 4 • NR I X«tS 6 1 NL I N»il7i NAXf LD»90 
1»NAXV«11 iNDST8«209.0LSK|R«10«OSSKIRN10|NAXACO«6«MAXACCMi 
2N0SRUO«6*N0OTWO«iO 

EQUIVALfiNCE (Ct«ACOATE)iCC2ilS68»*(C3iRr'LAQ)«(e4«TXlM09«0|8KtO) 
INTEGER 01(469), C2(256)|C9(71)«C4(S4S)iC9(629) 


0008 

0009 

0010 


0011 

0012 

0013 

0014 

0015 


I NTEOER ACOATE , SUBCAT, SURP0R( CaTKNTi OATTH 
BYTE CHNVEe«N 0 eHAN.N 0 SUB«O 0 TeATiO 8 TCLU 

C0HH0N/C0Ml/ACDATE(2,NAXACe}iCMNVEC(NAXCMNtHAXApC),NOCNAN|N08UB, 
ISUBCAT < HAXSUe } , SUBR0P ( HAXSUB ) « CATKNT ( NAXCAT } , C ATTN( NAXCAT ) , NODS* 
2N0DUfN0TH,O0TCAT(NQ0TS)iO0TCLU(NO0T$) 

C* 

INTEGER AOATES,SUNAZ.ANALSr,rLDDAY,O0TDAV,RDATEi,TDATEl 
integer ROATE2,TnATE2,POATE3,TOATE3iOATNAH,DtSK10,RANDBNiOR|B 
BYTE OElPLG, N0ACQi S0 ILQR« SUNEL , NSTaRT, NTVPEI, ALP« ALP* 

BYTE PCTCT,PCTCT0,VAR.VAR0.DLABELiTVPE 

C0HH0N/ceH2/lSEQ.DEirLG,N0ACQ,AOATES(2,HAXACD),S0lLQR<NAXACO)f 

lSUNEL(NAXACO),SUNA2(MAXACD).!HDATE(2),ANAL$T(5),PL00AY(2)t 

2D0TOAy(2).MSTART.NTYPE1,POaTE1(2)iTDATE1(2)«POATE2(2)iTDATE2(2), 

3POATES<2),TOATES(2)iN0CAT,CATNaP(HAXCAT),ALP(HAXCAT)iALP0* 

4 pCTCT(HAXCAT),PCTCT0.VaR(HAXCAT),VAR0 


0016 

0017 

0016 


0019 

0020 
0021 


0022 

0023 

0024 

0025 

0026 
0027 
0020 
0029 


0090 


integer ErLA6l,EPLA62,EFLA63,ErLA64,ErLAQ5,UPLAQl,uF‘LA08iUPLAQ3, 
1UFLAG4 

INTEGER PrLAO,DSXMNT 

e0HHPN/C0N3/PPlAO,DSKHNT,ErLA6i,EfLA62,EPLAG9tErLA64iErLA69,UFLA6l 

1iUFLA62.UFLA63,UFIA64.NEWLaB(HaXSUB) 

Ct 

integer TXl,TYl,TX2*TY2,ACniSP,6,e,OTWIND,D0TARYi6MlN,OHAX,FUL 
integer sfwino,clawnd,cluwmo 

e0HM0N/e0H4/TXl,TYl|TX2,TY?,IXiitYl(IX2,IY2<AeDlSP(2)*Ili<4),O(4)« 
ie(4),DTH|NO(9,N0DTUD),SPWlNO(5.N0SPHD),tMNlNe(4),NUNO0T| 
2D0 TARy(nO0TS),6MIN,6MAX,FUL(2i7),CLAWNO(8)iCLUMNO(8) 
C0MH2N/C0H5/DISKID.RANO0H(niOPT$),GRID(ND0TS},OLABEl(RD0TS), 
1TYPE(nD0TS),RECL0C 
real thresh, oist 
DINENSI0H C0ND(HAXSUR) 
byte wC74), 0UH2 
data thresh /15,0/ 

ISET*0 
rewind 1 

10 CONTINUE 
C 

C DISPLAY OfeFAuLT TMRESN0LO VALUE 

C 

C USER HAY provide NEW THRESHOLD VALUE 

C 

WRITE(6,810) thresh 


)7i 


09is«l00 2««aUN«77 


#ah t 


riRTKAN 

CIN0t7«r 

0091 

0091 

0099 

0094 

0090 

0090 

0097 

0090 


0099 

0040 

0041 

0042 
0049 
0044 


0045 

0046 

0047 
0040 
0049 

0090 

0091 

0092 
0099 
0094 
0099 

0096 

0097 
0090 


IVaOLUt V0t»04 
rN /TOfitfCKS/tm 


OAU tUT9UT(7) 

Oi40(0«0QQI W 
OAU fOfNT(M«74) 

( I 60 TO 20 

ir(W(i)«96«*Xt| GO TO 777 
trtUtlMOi'Of) GO TO 10 
lOTiO 

CALL FrrPIft9TiW,70*TMOiSM) 


CHICK IP NIH THOISHOUD VALUf |0 VAltO 


ir(THR6SM.GE,0'«0',ANO.T4ESHiUEi299i0) GO TO 20 
WRtTEt6«020) 

GO TO 10 
20 CONTINUE 

PT«1 

REA0(7'PT» 


PINO the CONOiTtONAl CLUSTERS 

00 90 IvliNOSUt 
PT«PT*1 
CONOm«« « 

R6*O(7>PTiENDM0)DUMl,0UN2iOtST 
iF(DisT,QT, T hresh) osNOfi)***** 

90 CONTINUE 

40 continue 

18ET»1 

777 continue 

return 

000 F0RhAT(74A1) 

010 PORHATC*! threshold DEFAULT • 'iPSait >t) 

020 P0RHAT(/« threshold input invalid • TRY AGAIN! ) 

END 














15.14 8UBR0UTIMB MIXD18 


MflRTRAN |V«I»UU8 V08«04 09196112 29«JUN»77 

M|K0tSi7TN /T9|H9CK8/M8 

OOOt SUMtUTiNf NIXOIS 


e 

e HIXEO cluster mar oisrlav 

e 

c S8URCS RRISRaH U3lil403H|XDI8«rTN 


c 

e WRITTEN 8V 68RALD ONANRaSNE 

C 

C 

C THIS M8QRAN F|hOS THE HIXEO CLUSTERS 

e AND RR8VI0BS F8R THEHE OtSRLAV ff THESE 

C CLUSTERS AND THE CATBQERlES 

C 


RA8B i 


0002 

0003 

0004 
0009 


0006 

0007 


IHRLICIT INTEQERfAvi) 

include (CsootSseAHSCEHeNtiNe* 

INCLUDE *SYie300«3]CAHSRARANtlNC« 

RARAHETBR HAXCAT*60iHAX8U8«60»HAxeHNt4*NR|XR|96tNLiN«U7|HAXfLO*90 
1 « HAXV«U « ND8T8t209« OLSK |R«10 1 0S8K I PflO i NAXAC0*6i HAXACC«4| 
2N09RWO*6iNROTHOviO 

fiOUtVALENCe (CliACOATB) I (C2»lSB8l»(eS*RrLA6),(C4iTXil* (09*019X101 
INTEOER ClC469)«e2(296)*C3(7i).C4(348),C9(629) 


C* 


0008 

0009 

OOtO 


OOtl 

0012 

0013 

0014 
0019 


0016 

0017 

0018 


INTEOER ACDATE* SU8CAT* SUBFOP* CaTKATiCATTH 

BYTE CHNVECiNBCHAN.NESUBiOBTCAtlDOTCLU 

C0HH8N/C0H1/ACDATE (2* NAXACC ) * CmNVEC ( HAXCHN* HAXACC) « N0CHAN* NOSUB • 
ISUBCAT ( mAXSUB ) * 8UBP0P ( NAXSUS I $ CATKNT ( H AXCAT I * CATTHi NAXCAT ) « N0D0 • 
2N0DU* N0TH« D0TC AT ( NDBTS ) * D0TCLU ( NO0T8 1 

C* 

1 NTE6ER AOATES « SUNAi . ANALST «FL00AY « OBTOAVi PDATEt * TOATEl 

INTEOER PDATE2,TOATE2|PDATE3.TDATESiCATNAN*OtSK|D«RAND0H<6R|O 

BYTE DElFLOi N0ACQ* S0 ILGR* SUNEL* NSTaRT* NTYPE l* ALR* A lRB 

BYTE PCTCT«PCTCTO*VAR«VAR0,DLA86L«TVPE 

C0MH0N/e0H2/tSE6iDELFLG|N0ACe«ADATE8(2iHAXACD}(S0|L8B(NAXAeO}« 
l8UNEL(HAXAe0}i8UNAi(NAXAeD),IMDATE(2)iANALST(9).FLD0AY(2)i 
2O0TDAY(2)|NSTART«NTYPE1 |PDaTE1(2)«TDATE1(2)*POATB2(2)«TOATE2(2)* 
3P0ATES ( 2 ) « T0ATE3 ( 2 ) « N0CAT* CATNaN (HAXCAT t « ALRI HAXCATI i ALFB i 
4 PCTCT(MAXCAT)*PCTCT0.VAR(HAXCAT)*VAR0 

C* 

integer EFLAfil«ErLA62«ErLAQ3iEFLA64*BPLA89«UFLAQl*UfLA62|UFLA0S* 
1UFLA04 

INTEGER PFLAOiDSKHNT 

e0HH0N/C0MS/PFLA6*D8KNNTiEFLA6liEFLA62tEFLAOS«EFLAO4iEFLAO9|UFLA8l 

liUFLAG2«UFlA0S»UFLA04fNEWLAB(HAXSUB) 

C* 


0019 

OOtO 

0021 


0022 

0023 

0024 
0029 
0026 
0027 


integer TXliTYl*TX2iTY2«ACD|SP*9iB«0TNtN0*DfTARVf0H|N|6MAX*PUL 
integer 8PW|N0*CLAWND*CLUW»'D 

C0MM0N/C0H4/TXliTYi|TX2«TYPftXl*IYli 1X2* tT2*ACD|SP(2M 11(4), 6(4)* 
lB(4),DTwlNO(9*N0OTWO)*SPWlPO(9,NeSPNO)i|HHlND(4)|NUHO0Ti 
2D0TARY(ND0TS)*6HIN,OHAX,FUL(2f7)*CLAWND(8),eLUHND(8l 
60MM0 n/C0N9/D|SKIO*RAND0M(kO0TS)«6R|O(NO0T8),DLABEl(NDETS)i 
1TYPE(ND0TS),RECL8C 
COMH0N /L0C0M2/CNASK 

e0HM8N /200M/ie(4),TC(4),IX,tY,TX|TY,HX,HV 
C0NH0N /FATAL/I0*RR 

OINENSI0N IX(9l2),lY(9l2),TX(9l2),TY(9l2) 

DIHENS10N CHASK(60)( C08RO(4) 




riRTRAN IVaRLUS 
MlKDtS.FTN 

oota 


vo2*04 ofiaa 

/TR|Bl 0CK8/HII 
DIHENSII^ NIX(HAXSUB) 
BYTE W<74)| ATIME(B) 
CALL 0UTRUT(27iia) 
CAU tOATE(HN,DD.YV) 
CALL ttME(ATlME) 


Of 1941 12 29«JUN«77 


babe a 


DISPLAY standard HBAD|NQ AND BRBQRAN NANE 


WRITE(4,920) HM,ODtYY«AT!NE 
URtTe(6«SiO) 


CHECK NEAREST NEI6HBBR ftlE EXlStANCE fUAB 


IFCEFlAQA.NE.I) WRtTE(4*AfO) 
tF(EFLA04,NE.l) RETURN 
IFL6*2 
C0NTINUE 

OET C08ROINATES ORIGINAL PAGE IS 

OF POOR QUALITV 

CALL gETC 0P(!C.TC.!SET> WUALirY 

IFMSeT.EQ'.O) Q0 TB 777 
00 19 l■l|N08UB 
CNa8KM)>0 
continue 

ALL0W F0» 208M!NQ UP 0R O0WN 

CALL 20000N(IC(l)(tC(2)ilCI3)iIC(4)iTCU)iTC(a}iTC(9)iTC(4)i 
iXi iy,TX,TV,0Xl,nY2,MX,MY,9NX) 
irtiO.EQ.l) G0 T0 10 
00 29 l«l,s 

tF(l.LE|A) eLUHNO(n>rC(l) 

IF(I,LE|«) R0 T0 29 
CLUKND(1M1C(I*4) 

continue 

riNo MIXED Clusters 


CALL hIXEDIMIX. ISET) 
IF(ISET,E0;0) 00 TP 777 
CALL 0UTPUT(27,1?) 


LIST USER PPtIBNS 
THE options aRE 

1 » LIST 0F CLUSTERS. CATEO0R1ES. AND MIXED CLUSTERS 
? • CATEC0RY T0 theme ASSIBNMENT 

3 r cluster T0 TMEME ASSIBNMENT 

4 » CLUSTER label CHANQE 


WRITE<4«B30) 

00 TP 39 
WRITE(6.e40) 
CALL 0UTPUT(7I 
READ(6«800) U 


m 






FiRTRAN 

IVaPLUO 

V02*04 09196112 2?«JUN«77 RA9I 3 

NIX018.FTN 


/TRlBtOCKS/MR 

0099 



CAU P29NT(H(74) 

oooo 



ir(U(l)|6Q;' M 00 T0 40 

0001 



irtWCDiSQ,*!') CAU U8T2(HtA*|PbO) 

0002 



lF(M(l).fQi*l'l 08 TO 80 

0003 



tr(UCi).iQ.*2M CAU CATTMN 

0004 



trtHfl)|8Qi*2') 00 TO 30 

0009 



|P(Mfl)t8Q.'3t) CAU CLUTHH 

0000 



tF(UllMQ,'3M 09 TO 30 

0007 



iriu(i).80;*4t) CAU CLA8BL 

0000 



ir(H(l).SQ,*4i) 08 TO 30 

0009 



1F(WUI«E0,*XM 00 TO 60 

0070 



UR!Tec6,600) 

0071 



00 TO 30 

0072 

40 

e 


CONTI NU8 


w 

c 

#9 


WRITE eiUOTER A0SI0NMENT8 TO TMENE 

0073 

|R 


CAU TNRITE 


w 

C 


EXIT OR REIIaOT 

0074 

w 

60 


WR|TE(6,070) 

0079 



CAU 0UTFUT(7) 

0070 



REAO(6*000) W 

0077 



CAU FR0NT(Wi74) 

0070 



1F(W(1),S0;*RM 60 TO 10 

0079 



irCwdliEO.'XI} 00 TO 777 

oooo 



URItE|6,060) 

0001 



00 TO 40 

0002 

777 


continue 

0003 



RETURN 

0004 

600 


F0RMATt74Al) 

0009 

010 


FORMATl/lOXi'HtXED CLUSTER MaF OISFLAY/NAY 1977t) 

0006 

020 


PORHAT(/40Xi*DATEI M2i*/'iI2.VM2« 



1 

/40X|«tlMEi S6A1) 

0007 

030 


roRMATt/' USER ORTIONS ARE'i/ 



1 

• 1 • LIST OF CLUSTERS. CATEOORIESi AND MIXED CLU8TER8S/ 



2 

• 2 • CATEOORY to theme ASSIoNMENTIi/ 



3 

• 3 • Cluster to theme assignment* i/ 



4 

• 4 • cluster LAOEL changes* |/ 



5 

• X • EXIT'./ 



6 

* CR FOR CONTINUE* i/ 



7 

•S enter option >») 

0000 

640 


FORHATt/* USER OPTIONS ARE'i/ 



t 

' 1 • LIST. 2 • CAT TO ThMi 3 • CLU TO THN. 4 • LAO CMANOE 



2 

♦ E(X)IT, CR',/ 



3 

*s enter option >•) 

0009 

060 


FORnATC/'S cluster LAOEL CHAnQEO T (TIES OR CR >*) 

0090 

070 


FORMAT!*! (R)ESTART OR E(X)|T >•) 

0091 

060 


format! * INPUT ERROR TRY AGAIN') 

0092 

090 


format!* EFLA04 tS NOT SOT TO 1*./ 



1 

' nearest neighbor data not aDvailable*) 

0093 



end 




15.14 SUBROUTINE MIXDIS 

A flow chart for this subroutine is not available. 


15.15 SOBROOrmE M8T2 


MrMmN V0t«04 of 1 5« I St tf«jUN*77 

kllTtifTN /TKiSlSOKS/MR 

OOOi tUMtuTlNS kliTSCDATAilfLQ) 


c 

e THft 7R0ORAH OftfLAYS 0N til THE 

e CLUSTERS, CATESIRliS, AND eSNOtTifNAL 

e IR nixed CLUsfSRS 

c 


RASE 1 


0008 

OOOS 

0004 

0005 


0006 

0007 


iHRLlelT INTEGER {A»E) 
include •CSOO,SaCAN$eiH0N,tNC' 
include * 8V I eSOOl sscansraram , I nc • 

RARAHSTER MAXCAT«60iNAX8UOR60fMAKCHNa4,NR|Xiif6»NL|N«ll7fNAXrkD950 
iiNAXV«U«NO0Tt9m.DL8K|R«iO*D8SK|NiiO,HAXACDM(NAXACCM« 
8N0SRWDr6*N0DTNDltO 

equivalence (CiiAe0ATE),fC?,tSE0)*(CS,RrLA0}||C4iTXllife5#0|SKI0l 
integer Ci(469)«e2(8l6lie3l71),C4(S4O)#C0l68f> 


0000 

0009 

0010 


INTEGER ACOATE , 8U0CAT, 8U0R7R , CaTKKTi CATTH 
OYTE CHNVEe«NOeHAN,NRSUB,O0TeATiOOTCLU 

C0MN0N/C0Hi/ ACOATE ( 8, M AXACC ) i C hNVBC ( MAXCMN* NAXACC) « NRCHANi N0SU0« 
18U0CAT I HAXSUO ) 4 8UER0R ( MAXSUO 1 1 C ATKNT ( HAXOAT ) . CATTNI NAXCAT ) « N0D0i 
8NOOUiNOTM4O0rCAT(ND0TS)|O0TCLU(NDIT8) 


0011 

0012 

0013 

0014 
0019 


INTEGER AOATESiSUNAiiANALSTiRLDOAViDOTDAYiRDATEliTOATEl 
INTEGER RDATE2iTOATE8«ROATB3iTDATE3ieATNAN4DISK|D4RANOON(GR|0 
OVTS OSLRLGiNBACOtSOILQRiSUNBLiNSTARTiNTYREliALRiALRS 
OYTE RCrCTtRCTCT9«VAR,VAR0.OLAOELiTYRE 

C0NNON/C0N2/tSEGiO8LrLO|N0ACOiADATE8(2.NAXACO)i80lLOR(MAXACDl4 
18 UNEL ( NaXACD 1 4 SUNAi f MAX ACD ) , I NO ATE ( 8 1 # ANALST f 9 1 4 RLOOAY (8 1 1 
8D9TOAV{2)4NSrART4NTYREl4ROArRl(2)4TOATGl(8)«ROATE8(8)4TOATE2C8)4 
3R0ATE3(a).T0ATB3f 2), N0CAT4CATNANf NAXCAT), ALRCNAXCATI iALRO* 

4 RCTCT(MAXCAT)4RCTCTe,VAR(NAXCAT)4VAR0 


0016 

0017 

0010 


0019 

0020 
0021 


0022 

0023 

0024 
0029 


0026 

0027 

0020 

0029 

0080 

0081 


integer EfLAGl4ERLAQ2,ErLAG34CrLAG44ErLAG94UfLA0l4UrLA08iUrLAGS4 
1URLAQ4 

integer R7LAG,D8KMNT 

CRMNiN/COMS/RFL AG, OSKNNT , EFL AGi 4 EFlAGE, ERLAG 84ERLAG4f EFLAGS, UFLAOl 
l4UFtAG2,UFLA03,UFLAG4,NSULA9|HAX0Ui) 

C* 

integer TXl4m,TX2,TY24ACn|SP,O4O,OTWtNO4O0TARY4GM|N,GNAX4rUL 
integer SPWINO,CLAUNO,eLUWNO 

C0NN0N/e0M4/TXl,TYt4rX84rY24lXi4(VitIX84fV24AOOI0Rf8)illl(4)4GC4)4 

10(4)4OYwtNO(9,N0OTuO),8RWlNO(9,Ne8PND)4lNWtND(4)«NUN80T4 

2O0TARv(NO0rS)4GNIN.GMAX|PUL(847}4CLAUND(0)4CLUWNO(O) 

C0NM0N/C0N9/O I SK 1 0 . N AND0M ( moots ) , 6 R 1 0 ( NO0T8 ) 4 OLAOEL I ND0TS ) 4 
1TYPG(nO0T8)4RECLOC 

D|MENSt0N OATA(MAXSUB) 

CALL 0UTPUT<274l2) 

NaNOSuO/20 

e 

c calculate the nlmoer of lines needed for display 

c 

1FCnOSU 8'.NB,N«20) NiN*t 
tF(N,6T,S) Nb3 
iBBOtS 
IEND«2J 

trnENO.GT*,N0SUB) IENOpNPSUB 
00, 10 t«l,N 


1^0 


paoe a 


f0RTR4N tVvPtUS V0a»04 
llSTatfTN /TKlSieCKSm 

c 

e 

c 


09196138 a9«JUN«77 


DISPLAY RN T|l 


0092 


0033 


0034 


0099 


0096 


0037 


0036 


0099 

30 

0040 


0041 

600 

0042 

610 

0043 

620 

0044 

630 

0049 



US|TB(6|600) (JtJ«|SIOil8N6| 

UStYE(6«Sl01 (CATNAH(NfUU9(J})«<l«lSiailBNO) 
irdfLOtlOti) WSlTf(6«ttO) (SATA(J}«J«|eEQil6ND) 
tFflPLS.eo.n ItSITEU.SSO) (OATA(JI«J»IBESiIEnD) 
lB80«tlEO*aO 
lENDalENO^ao 

IfdEND.QT.DItSUB) lENOfNSsWB 
CSnTINUE 

rsSNATt/* CLUSTER *(20131 
rsSNATCt CATEQSRY *(20(3X142)) 
fSRN4T(* CRN01T|9N*(20aX(42)/) 
rSRMATC* HIKED *(20dX(42)/) 

End 


ORIGINAL PAGE B 
OF POOR QUALITY 











I 


i 




15.16 SUBROUTINE MIXED 


ORIGINAL PAGE ll 
OP POOR QUALITY 


HFflRTRAN iVvPLUS V0}«04 Q9|56U7 2f«jUN»77 

HlXEOiFTN /TR|BL0eKS/MR 

0001 SURReuTlNE MlXEO(NtXitSET) 


C 

C THIS RR0QRAH OEtERNlNES WHICH 

C RF THE CLUSIERS ARE HtXED 

C 


base 1 


0002 

0003 

0004 
000 $ 


0006 

0007 


iMRlielT INTE6eR(A»2) 
include tcsoCiSieAMseaMBNiiNc* 
include *SVieSO0i33CAHSPARANilNCt 

parameter MAXCAT«60iHAXSU8«6e»MAXCHNt4|NP!XPt96«NLlNRll7|HAXFLD«S0 
liMAXV«lliND0TS«2O9.DLSK|P«lO«OSSK|P«lOiHAXAeD«6«MAXACCM| 
2N0SPHD«6»N0DTHDilO 

equivalence (CliACDATE)i(C2it$EC)i(C3|PFLA6)«(C4|TXl^(C0|O}SKtD) 
integer Cl<469)ie2(2$6)ie3(7l)«C4(S48),C9U29) 


0008 

0009 

0010 


I NTE6ER ACOATE ( SUBCAT * SUBPrP * C aTkKTi CATTH 
BYTE CHnVECi N0CHAN. NBSUBiDRTCATi D0TCLU 

C0MMPN/CBMl/ACOATE(2(HAXACC)tCHNVEC(MAXCHN|HAXACC).N0CHAN»N0SUB« 

lSUBCAT(MAXSUB)iSUBP0P(MAX$UB)iCATKNT(NAXCAT||CATTHfN4XCAT)fNBO0< 

2N0DUiNRTN«O0TCAT(ND0TS)iD0TCLU(ND0TS) 


c« 


0011 

0012 

0013 

0014 
001 $ 


integer abates. SUNA 2«ANALST,FLDUAY.D0TDAVtPOATEliTOATEl 
integer POATE2,TPATE2|POATE3iTDATE3«CATNAHiDlSKlD.RAND0HtQRID 
byte DElFLG.N0ACQ|S0ILGR.SUKEL«NSTaRT«NTVPE1.ALPiAlPB 
BYTE PCtCT.PCTCTR, VAR, VAR 0.OLABfeL« TYPE 

C0MH0N/CBM2/ 1 SE6, DELFLG t N0 aCOi aOATES ( 2, NAXACD ) . S0 IlQB ( MAXACD ) . 
1SUNEL(MaYaCD),SUNA?(MAXACO).|MOATE( 2)#ANAL$T($)|FLDDAY(2I* 
2D0TDAV(2).NSTART.NrYPEl.POATEl(2),TOATEl(2)«PDATE2(2)«TDATE2(2). 
3POAT63<2).TOATE3<2),N0 CAT,CATNaM|MAXCATJ»ALP{MAXCAT)iALP0| 

4 PCTCT<MAXCAT),PCTCT0,VAR(HAXCAT),VAR0 


0016 

0017 

0018 


0019 

0020 
0021 


0022 

0023 

0024 
002 $ 
0026 

0027 

0028 

0029 

0030 
00»1 


integer EFLA61.ErLAG2,EFLAG3.EPLAG4(EFLA69,UFLAQl,UFLAG2iUrLA6S« 
1UFLAG4 

integer pflag.dskhnt 

C0MH0N/C0H3/PFLAG,DSKMNT,ErLAGliEFLAQ2,EPLAQS,EFLAG4iEFLAQ9,UFLAGl 

iiUFLAQ2,UFLAQ3,urLAG4.NEWLAB(MAXSU6) 

C« 

integer TXl,TYl,TX 2 ,TY 2 ,ACniSP,G,e,OTW|ND,O 0 TARY, 6 H|N,GHAX,FUL 
INTEGER SPWIND.CLAWNO.CLUWmD 

C0MM0N/CBH4/TXl,TYl,TX2,rY9,|XlilYlilX2,IY2,ACOlSP(2)illM4),G(4). 

1B(4),dTuIND($iN0DTwD)|SPU1mD<$«N0SPHD).IMM|ND(4),NUHD0Ti 

2D0TARY(ND0TS),GHlN.OMAX,FUU2f7),f.LAWND(8),CLUWND(8) 

C0MHRN/CBM9/DISK|D.RAND0H(«jD0TS),1R|D(ND0TS),DLABEl(ND0TS|, 

1TYPE<nD0TS),RECLRC 
real thresh, BIST 
real ddiff 

OIMENSI0N M|X(MaxSU8) 

D|HENSt0N O0TN(Nn0TS),DlRT(No8TS) 
byte W(74), OLAB(ND0TS) 

data thresh /0,$/ 

1SET*0 
REWIND 1 
18 C0NTInUE 
C 

C DISPLAY default THRESH0LO VALUE 

C 

C USER HAY PR0VIDE NEW THRESH0LD VALUE 


/« 


rAOE 2 


reRTRAN tVvPLUS V02«04 0R|S6|47 29 «juN«77 

H|XED«PTN /TRlBt8CK8/NR 

e 


00S2 


0093 


0034 


0039 


0036 


0097 


0030 


0099 


0040 

C 


C 


e 

0041 


0042 


0043 


0044 

20 

0049 


0046 

C 


c 


c 

0047 


0040 


0049 


0090 


0091 


0092 


0053 


0054 


0055 


0096 

30 

0097 

40 

0058 

90 

0059 


0060 

777 

0061 


0062 

800 

0063 

810 

0064 

820 

0065 

030 

0066 



URtTE(At8iO) TMRE8H 
CALL eUTRUT(7) 

RBAOUitOOt U 
CAU rBBNT(W«74) 
tr(W(l).EQ',« t) 60 TR 20 
tF(W(l>,EQ«*XM 00 T0 777 
tP(W(l)tEQ.*0t) 60 T0 10 
IPTsO 

OAkL PrFPI(lPTiM.74«THRESH) 

CHECK IF NEM TMRBSH0LO VAUUE IS VAUO 

tr(THRE8H.GE«O'*O'.AND'.TRESHii.E«209«O) 00 T0 20 
MRITE(0«820) 

00 T0 10 
CONTINUE 
PTfl 

REA0(7*PT) KNNiNO 

PINO the hiked clusters 


00 40 lft*N0SU8 
PT«PT*1 
HlXU)t> t 

REAOf7tPT«END*9O)(D0TN(K),OLAB(K)iOlST|K}*K«i.ND) 
00 90 U82 iN 0 

lnOLAB(l).EQ.DLAB(jn 00 T0 30 
ODtPPBABS(nlsm)«nis!(UM 
iFtOOlPP'iLE. THRESH) HlX(|)a<*«i 
IP(ODIPP*.LE, THRESH) 00 TO 40 

continue 

continue 

CONTINUE 

ISET«1 

CONTINUE 

RETURN 

P0 RhAT( 74A1) 

P0 RH*T(*$ threshold default ■ SP 9',l,t >l| 

PORHATl/* THRESH0LO INPUT INVALID ■ TRY AQAiNt} 
P0RMAT</* LABELS F0RM3|t ALL THE SAME*} 

end 


t: 


SUBROUTINE MIXED 

A flow chart of this subroutine can be found in volume 1, 
page 3-237. 


i 


\ ■ 


16. CLASSIFICATION HAP DISPLAY/RBCOMPUTE PROPORTIONS RBPROP 


HF0RTRAN |V-PLUS V02«04 10I11M6 09«JUU»77 ^ASE 1 


RERR0R.FTN /TRIALU/UR 

C this program RSCPMPUTES PRPPpRTlONS FOR AU AVAILABLE 

C CATEQ0R1ES AFTER CLUSTERS HAVA BEEN RELABELLED. 

C SPttRNALLY THE NEW CATEQPRV CBURTS MILL REPLACE TME 

C EXISTING 0nES« 

cccccccccccccccccccccccccccccceccccccceccccccccccccccccccccccce 

c 

C PRSQRaH name REPR0P,FTN 

C REPRBP.PBJ 

c • • I reprsp.tsk 

ccccccccccccccccccccccccrcccccccccccccccccccccccccccccccccccccc 

c 

C written PY H.G.THADANI 

C PRPjECT leader S.G.THAOANI 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C C0MPUTER . POP 11/4P 

C language /...i'.. FORTRAN 4 PLUS 

c 

ccccccccccccccccccccccrcncccccccccccccccccccccccccccccccccccccc 

C recompute PRRPaRTl'i'NS APPLICATIBN PROGRAM 

0001 implicit InTEGER(A-2) 

0002 include •SYtC300.3]CAMSCP)VON.lNC< 

0003 • INCLUDE *SviC300«3ICahSPARaM, InC* 

0004 • parameter MAXCATi6niHAXSUBp60tMAXCHNt4,NPlXft96|NLlNBll7|MAXFLn«50 

• 1. '!AXVsllfND0TSB2n9.DLSKlPslO,DSSKtPBiOiNAXACDB6«MAXACC«4. 

• 2NOSPV'0*6iNPDTWOPlO 

0005 • equivalence (C1,ACDATE)i (C?,ISEG)i(CS.PFLAG).(C4.Tx1)*(C5*0ISKID) 

0006 • integer Cl<469)|C2(256)|C3(71).C4(34S)|C5(629) 

• C» 

0007 • integer AC0ATE,3UbCAT,SUPP<^P|CATKNT»CATTH 

0006 • GYTE CHNVECiN0CHAN.NPSUB.D^TCATiDeTCLU 

0009 • C6MMPN/cOMl/ACDATE(2.MAXACr)|CHNVEC(MAXCHN|MAXACC).N0CHAN|N0SUR« 

• lSUPCAT(MAX5!UR}iSUBP6P(HAXS'i8]iCATKNT(MAXeAT}|CATTH(MAXCAT)iN0D6* 

• 2N6DU»N»TH,n«)TCAT<Nn6TS)|P0TCLU(NDeTS) 

• C« 

0010 • integer ADATES.SUNA2. ANALST,rLD0AY|D6TDAV,PDATEl|T0ATEl 

0011 • integer RDATE2,TOATE2«PDATE3iTPATE3|CATNAM|Dt$KlO,RANO0H|6RIO 

0012 • byte oELFLG|N6ACOfS6ILGR|S'JNEL.NSTART.NTVPEl.ALP(ALP0 

0013 • byte PCTCT,PCTCTP,VAR,VAR0,DLAP6LiTVPE 

0014 • C6Hhb^/q0^2/|Seq,dplELG|N6aCQ|AOATES(2|MAXACD)*SPIl6R(MAXaCD)« 

• 1SUNEL(MaXacD)*SUNA2(HAXACD)i lMnATE(2)» ANALST(5).FL0DAV<2). 

• 206TDAy<2),NSTART|NTYPE1|PDaTE1(2).TDATE1(2).PDATE2(2).TDATE2(2), 

• 3PDATE3(2».TDATE3<2)|NaCAT,rATNAM(PAXCAT»,ALPlMAXCAT>iALP0» 

• 4 pCTCT(MAXCAT)|PCTCT0,VAR(NAXCAT).VAR6 

• c« 

0015 • integer EFLAGl,ErLAG2,EFLAG3|ErLAG4|EFLAa5«UFLAGl«UFLA62iUFLA63, 

• 1UFLA64 

0016 • integer PFLAGiPSKMnT 

0017 • CeMM9N/CBH3/PrLAG,nSKHNTiErLAGiiEPLAQ2,EPLAQ3«EFLAQ4iEFLA65|UFLA6l 

• liUFLAG2,UFLAC3,urLAG4,NEWLAB(MAXSLB) 

• C« 

OOIB • integer Txi,TY1,TX?|TY2|ACPISP,G|6.DTWINOiO0TARVi6m1N|QMAX|FUL 

0019 • integer SPwind,cLAWND,CLUWmd 

0020 • C0MpPm/c0M4/TX1,TY1«TX2|TYp, IX ii IYlilX2,lY2|AC01SP(2)f Ill(4)t6(4)i 

• lR( 4 ),nTwlNP( 9 |N 0 nTUD).SPWlNO( 5 ,N 0 SPUO).IMMlNO( 4 )|NUHD 0 T| 

• 2D0TARY(ND0TS)i6MlN.GMAX,rUL(2i7)iCLAWND(O)«CLUWNO(8l 


!% 












fbrtran 

IVaPLUS V02«04 10111146 09«JUL«77 RAOB 2 

REPR0P* 

FTN 

/tpiall/mr 

0021 • 


C2HM4N/CRR9/D|SKtD.RAND0H(ND2Ts)t6R|O<NO0TS)«OLABEL(NO0T8)i 

• 


1TYPE(NO0TS)(RECL"C 

0022 


parameter HAX1«8 

0023 


real RECPCT(mAXCAT) |PER0M|R2R0U«PERTH«PERUN0 

0024 


byte hMS(8)iW(74)|NV«VERTEV«lBWH1|8FCLU8(NR1X)i 
1 0FCLAS(NPlX)(FLOINT(MAXFLO)iCMANtlABEL 

0029 


byte MAX,MtN«XA,X8 

0026 


C0YH0N/RCP/ ICAKMT(MAXSUR)tlRfeSge(MAXSUB)irL0NAM(3iNAXPL0) 
lLABEL(^4XFL0)iVERTEX(2»MAXV|MAxFLC)|NV(HAXPLD)*nELD(2*RAXV) 
2LB4Hl(2.MAxFLD)<FL(HAXl|HAxFLC)*fLLlMAXl)tDtRCAT(ND0T$)| 

3 CHANd6),XtRECPCT«PERO0|PERCU«PERTH»PERUNOt 

4 NLP,NOPP!X,NnuPlX|NTM,UNID 


C 

INITIATE TIMING 

0027 


CALL attach 

0028 

1 

C0NTKUE 

0029 


CALL ASSl6N(6t*Tll*) 

003C 


CALL ASSlGMlO.’GPld 

0031 


0PEN(uNIT«7,NAMEa*SYlC3OO»l3CLA8SMAP,TMPV 
1 ACCESS* ‘DIRECT'. RECORDS I ?E*49 « TYPE* ‘ UNKN0WN ♦ 1 

0032 


3PFN(uNIT«A,NAME«*SYIt30!».l]CLUSTERMP,THP», 

1 ACCESS* ‘DIRECT ‘.PEC0RDSPE*49* TYPE* ‘UNKNRNNM 

0033 


LU^a9 

0034 


CALL aSSIGNILUV. ‘SYIC300.13FIELOS|TMP«) 

0039 


II«1 

0036 


CALL ELaPSF(II) 


C 

BEGIN PR0CFSSI.MQ 

0037 

6 

NRES*J8«0 

0038 


D0 3 i«i»M*xSU6 

0039 


icaknt«i)*o 


0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 
0090 
0051 

0092 

0093 

0094 
0055 


0096 

0057 


0058 

0099 


C DETEOmKE »EL*f’6LLf-D CLUSTERS 

IF (Sj»CAT(I)«EQ«NFMLA»(!n 68 t8 2 

IR»:SU8(1)«i 

60 TP 3 

2 l*«I^Sll8(t)aQ 
MRPSUd«v»6SU64l 

3 C0MTlN')fc 

‘iRf^'l3«M*X?U‘<»''RC:SLI8 

C >«RITE(10«803) M06U8*^RES iBiHRfeStA 

403 F(!iRHAr</lX| •M0SU(^iMRESUe.8RE!;ufl«,9IB/) 

C display RELARELLFO CLUSTFR RPP'ohT 

CALL 1DATE(I‘1,IO,|v) 

CALL TImF(hmS) 

CALL 0'JTPIT(27,12) 

0FLAG«EFLAft3 

i«lNITC(6,4) IM,10.IV,{MMS(J), J«1#8J 

4 F0RMA*(51X.'OATEIM2,'/'iT2i'/M2/91X««TINEIS8A1/) 

4RITM6,5) 

5 raHMATdX, •RFCFMPUTE PR0P0 RTi«MS application PReoRAM*/ 

l6X,t hay 1977V) 

C print user 0PT10NS 

WRITE(6,7) 

7 FPRHATdX, 'USER PPTIPNSI V/IX, d. RELABELLED CLUSTER R6P0RT»/1X, 

id.RfcCPMPUTE PR(5P0»Tlii»NS RP.PPRTV 
2//*5 type in sflfcted PPTKN >•) 

CALL 0'JTPUT(7) 

read <6. 8) 










10111146 09«JUL«77 


PAOe 9 


FORTRAN IVaPLUS VQ2«04 
REPROP. FTn /TR|AlU/mR 


0040 

0061 

0062 

0063 

0064 

0065 

0066 
0067 


F0RK4T<74A1) 

CALL FR0NT(«,74> 

analyse user INPUTI valid (fPTIONS ARB lit.S.X 
tF(M(i),EQ.iX«) 00 T0 56 

10 
17 


1F(M(1);EQ.«1«) 60 T0 
IF(W<1).EQ,»?M 00 T0 
PRINT error *«ESSA6E 
WR!TE(A.9» 

f0rmat(/5x, •••• invalid 
00 TP 6 


INPUT...TRY AGAIN****/) 



C 

relabellfu cluster repprt, 



0060 

10 

P|Gi*0 



0069 


C0UNT*O 



0070 


FPAGEsO 



0071 


^l^«0 



0072 


00 16 IbI.maXSUB 

WAujy 


0073 

15 

IMPIgE .EQ, 5) 60 T« 95 


0074 


IFIpIqE .NE, 0) 60 TP 96 


0075 


IFIfPAGE.NE.n) GP T0 96 


0076 


CALL IDATEUMO.IY) 


0077 


CALL TlN?(MMS) 



0078 


CALL eUTPUT<27,l?) 



0079 


WRITE <6, 4) IM, ID.IY.(HMS(J)»J*1.8) 



0080 

11 

WKITE(6,77) 



0081 

77 

FpR'*aT»/10X. 'relaselled closifh REPPRT*/) 


0082 


WR!TE(6,88) 



0083 

86 

F0RH4T</1OX, ’CLUSTER ’i1O<,’0lC LABEL 

•ilOX.’NEU label 

V) 


C 

paging capability N0N 



0084 

96 

IFClRESUPm.eo.O) GP TP 161 



0085 


JX*SUBCaT<1 ) 



0086 


KKBNEwLAfld) 



0087 


pI6e*pIGE^1 



0088 


C0UnT»C0UNT41 



0009 


WRITE (6, 91) I,CATNAM( JW),CaTNAM<KK) 



0090 

91 

F0RMAt(i3x, I2.19X,a2,16X|A?) 



0091 


60 TP 161 



0092 

95 

WR1TE(6,12) 



0093 

12 

r0RMAT<*T TYPE IM E<X)IT,<R)ETURNi 0R 

PAGE (F)0RUARD 

>•) 

0094 


CALL /UTPUT(7) 



0095 


read (6* 6) '•> 



0096 


call FR0^T(W,74) 



0097 


IF(W<1) ,fcO,'X’) 6P TP 56 



0098 


IF(W<l),tQ,’R’) 60 TP 6 



0099 


IF(w(l) ,EO, *F* ,PR, wm ,FO. • •) 

G8 T0 14 


0100 


WRITE(6,9) 



0101 


G0 TC 10 



0102 

14 

IFICPU'^T ,FO, MRTSUH) G0 TP 8ul 



0103 


pige«o 



0104 


FPAgEaO 



0105 


1F(FIN .EQ, 1) 6^ TP 10 



0106 


00 TP 15 



0107 

80l 

WRItE(6,80?) 



0108 

602 

rpRMATl/lX, ’END REPPRT*/) 



0109 


FIA*1 



0110 


pige*o 



0111 


C0UnTsO 






lOlllMt 09«WUl«77 


PAOE 4 


rERTRAN 1V«R|.US V02«94 
RiRRRP.FTN /T»|AlL/MR 


0112 


rpAQEiO 

0113 


88 T(? 95 

0114 

161 

PPAOEal 


C 

WRrTE(10(804) e^UNTfMRESua 

0115 

804 

r0PHAT(/lX( •C8UNT#HRESUy*«218/} 

0116 


IF<c2u'^T ,EQ. HNESUS) 00 T0 801 

0117 

16 

C0MTIMUE 


C 

9EC0HPUTE PN^PPRri8NS C0MPUTATt8NS 8EQ|N HERE 

0118 

17 

IF(NRESuEtME,HAXSU9) 62 T0 22 

0119 

IH 

WR|TE<6,19) 

9120 

10 

F‘0BM4T(5«i* N0 CLUSTERS RElABEULEDVJ 


C20 

tF(«i(i) .Eo. <2') 60 re 22 

0121 

20 

C0MTINUE 

0122 


WRITe(6,2i, 

0123 

21 

riL maT</*$ (R)ECVCLE.<C)eNTIvUB 0R E<X)|T >•) 

0124 


CALL BUTPUT(7) 

0125 


READ(6*8) W 

0126 


CALL rR0NT(W«74) 

0127 


IF(W(l) ,EQ,*R» ) 00 TF 6 

0128 


IF(w(i) ,E0, 'CM 60 TF 22 

0129 


IF(W(1),E0,»X') 00 TF 56 

0130 


WRITH6.9) 

0131 


60 TF 20 


C 

check F0R EXISTEHCC PF CLUSTER/CLASSIF1CATI0N HAPS 

0132 

2? 

IF(EFlAOI.EO.I) Cf0 TF 24 

0133 


wRITE(6,23) 

0134 

23 

F09MAT(5X,« cluster hap D0«;S NFT EXIST*/) 

0135 


60 TF 20 

0136 

24 

If (EFLAG2,P0,1) 00 TF 26 

0137 


WRITE(6,25) 

0138 

2*> 

fFRMAT(5i<«* CLASSIf ICATPN HAP LFES N0T EXIST*/} 

0139 


G0 TF 20 

0140 

24 

If <DfLAG.E0.1) 6F T0 128 

0141 


WRITF(6,27) 

0142 

27 

f0RMAT(5X,' OF/DU flELOS N’T AVAILABLE F8R THIS ACOUlSlTIBN 

0143 


nfLAO«l 

0144 


G2 TF 20 


C 

REOIH REAOINR CL'JSTEP/CLASSIFICATIFN MAP/O0»OU FILES 


C 

LINE LFfP 3E6IMS MpHE 

0145 

128 

N0LIN«1 

0146 


DFLaQsEFlA63 

0147 


D0 28 ItliNOFTS 

0148 


OIRCAK I )aO 

0149 

2« 

C0N-TUUE 

0150 


HOFPlX«0 

0151 


NUJPI X«0 

0152 


NTn»0 

0153 


IF<DFL*6.E8,0) 6F T0 35 

0154 


REAP (LU^) N0FLn 

0155 


00 29 ui«H0rLn 

0156 


read (L UN) (FL0NAM(II,l),llBl,3),LARELf I)*NV(1)| 


1 

. ((VE*’TEX(J.K«D*Jb1,2).K«1«HAXV) 


C 

RRITE(10|900) IiCfLONAMCIIf I)f IIal,3) 

0157 

900 

f09HAT</lX, TIELn N0.I NamE*,4X«i3i4X|6A1/) 


C 

write ( 10 ,901) LAOEL(I)iNV(I)«((VERrEX(J,Kf I )« 


C J 

. J«1.2)fK>l|HAXV) 






( 


1 • 


riRTRAN 

1V«PLUS V02.04 I0tlll46 09«JUL«77 P60i 9 

K6PR09i 

FTN 


/T9|AU/HR 

019S 

9Q1 

P08MAt(/lXf *LA86 l« NV« VERTIC«S«(4Xi|9i4X*t9«/t 




1 1X«16(1X.I4)/) 

0199 

C 

29 

CeNTlNUE 

PIXEL LIME C80ROIMATRS ARE STORED IN BYTES 


C 


determIme max/hin line values 

0160 



00 34 IsltNOPLO 

0161 

0162 

0163 



MIN«V6RTEX(2.1.|) 

JL«NV( I ) OF POOR QwAWm 

0164 



D0 33 J«1«JL 

0169 



IF(VErTEX(2iJ,I).6T,MAX) 6^ T0 31 

0166 



tF(VERTEX(?«J.I},LE*Miri) O'* T0 32 

0167 



00 T0 S3 

0166 


3l 

MAX»V6RTEX(2,J,I) 

0169 



60 T9 33 

0170 


32 

MlN«VERTEX(2,J,n 

0171 


33 

CONTINUE 

0172 



L0NHI(1*I)«MIN 

0173 



L0WHI(2.I)«NAX 

0174 


34 

CONTINUE 


C 


WRITE(10.904) ((L0UHl(I,j)tItl|2)iJ9liN0rLO) 

0175 

904 

F09mAT</1X.»L0whI( 1,J), L0UHI(2,j)S4X«(2(t4i2X}/}) 


C 


BEGIN PROCESSING A LINE 

0176 



00 9? N?iLlN»l»NLIN 


C 


wR1TB(10»9879) NTLIn 

0177 

9875 

r0»HAT(lX, *N0 LIN'i 13/) 

0178 


35 

RfcAD(7*N0LlN) (SFCLASd )iI*l»NPlX) 

0179 



REAQ(e'NOLIN) (eFCLUS(t)iIsliNPlX) 

0180 



LCNECK«0 

0181 



00 1002 I«OLSKIP.NLlf'|BLSXtP 

0162 



IF<N0LlK.EOf DLC^iECKcNt^LTN/OLSKIP 

0183 

1002 

C0NTINUE 

0164 



IF(OFlA6iEO.O) 6B T0 415 

0169 



ns 36 Ial,MAXFLO 

0186 



FL0INT( 1 )*o 

0187 


36 

C0MTINUE 

0188 



K«1 

0189 



00 37 I«l,N|tirLD 

0190 



IF(NC’LlN.LT.L0NHI(l,n,0R,\0LIv«Qt.LOWHl(2tl)) 60 T0 37 

0191 



FLOlNTtK)«I 

0192 



K«K«1 

0193 


37 

CONTINUE 


C 


4RITE(1O,9076)(FLOINTIKK),KK«1,N0FLO) 

0194 

9876 

FORHATtlV, •FLDINT‘,1019/) 

0199 



K«1 

0196 


34 

lF(FLOlNT(tO,EO,n) 60 T0 4l 

0197 



I*PL0INT(K) 

0198 



JJL«NV(I) 

0199 



D0 39 JaliJJL 

0200 



XA«VP»»TEX(l,J,n 

020i 



XBtVERTEX(2.JiI) 

0202 



FIPLD(1.J)9IRYTEC0.XA> 

0203 



F|ElDC2,J)«1PVTB(0.XP) 

0204 


39 

C0NTINUE 


C wrttE(10»9930) ((riELOdlf 

9930 F0Pf^AT(/lX,»riFl.f^(!IiJJ)*i4X,/,lX#2OM/J 


! 


■j 


A 

\ 

t 


t 


0205 


0»«JUU«77 


i»Aai « 


FWTRAN IV«PluS V0?»0« 

PEPR0PtFTN /TPMLI/WR 

0S06 CAUL fDtlNT(Pt6kP«JJL*rU«%*LP^*N8AHPiJJI 

0207 00 40 Kk«1«MAX1 

0200 n.(KK.n«FU(KK) 

0209 40 CONTINUE 

WRtrEaO*9073) ((FLIKKtDfKKsliPAXi)) 
r0PMAT(/lXi*FI.Ctt«I)S4X,tO<2X,14)) 

K«K«i 
60 TP 3A 
CONTINUE 

nRITE(10«9931) 

F0Rmat(/1Xi'DB»U6 print aFTER 4l‘/l 

FiELO Intercept infrrhation is non in fl(naxi*haxfi.d> 
pixel L00P BEGINS MERE 


0210 

0211 

0212 

0213 

0214 


40 

C 

9073 


41 

C 

9931 

C 

C 


0219 

419 

00 $1 Ksl.MPtX 


0216 


IF(lChEC«',EO.O) 60 TO 1003 


0217 


CMECXaO 


0216 


00 1001 I>nSSKlP«NPlX|DS$KtP 


0219 


IFIK.EO. I) CMECKB(LCHECK»l)«NPtX/CS$KIP«R/D8SKIP 

0220 

1001 

CONTINUE 


0221 

1003 

L«1 


0222 

42 

1F(FL0InT(L).E3,0} 60 T0 40 


0223 


i«fldint<l> 


0224 


irCFL<2.n.NE.O) tt-* Ta 49 


0229 


IT(FL(l«I).EO,n) T0 43 


0226 


IF(K,E0.FL(1«1)) G0 T0 46 


0227 


L«L*1 


0226 


G0 TO 42 


0229 

43 

WR1TE(6.44) 


0239 

44 

F09MAT(5X, •FOUNT CONTRAOIoTS lOWNI .ERROR. .EXITt/I 

0231 


60 TP 96 


0232 

45 

IF(K,6t,FLa.|),AN0,K,LB.FL{2»lM 

60 T1 46 

0233 


IF(K.6F,FL(3.I),ANn,K,LE,FL<4.|M 

ifik.ge.flisiD.ano.k.le.flio.im 

60 TO 46 

0234 


60 T0 46 

0239 


IF(K,8F.FL(7.n,ANO,K,L6.FU0ilM 

66 TO 46 

0236 


L*L^1 


0237 


60 TO 42 


0236 

4a 

IF(LAaEL<I).FO,»-l) 60 TO 47 


0239 


ndupix*ndupix*i 


0240 


IFICHBCK.NF.O) DPTCAT(CHEC<)p*2 


0241 


60 TP 5i 


0242 

47 

NDOPIX»NO0PIX*1 


0243 


IFCCHgCK.NF.O) OOTCAT(CHEC4)«*1 


0244 


60 T0 5l 


0249 

4a 

CONTINUE 


cc 

DO/OU PROCESSING CPMPLETFO AT THIS POINT.PIXEL K IS NOT DO/OU 


0246 

0247 
0246 

0249 

0250 

0291 

0292 

0293 

0294 
0299 
0296 


00 49 J«1,m0SUR 
1F(IR5Su 8(J),NE,1) 60 T0 4^* 
IF(arcL(jS(<),NE,J) 6P T0 40 
XK«BFCUA9(K) 

ll"surcat( j) 

IF(kK ,E0, 0)CATTHfLL)aCATTH(LL)«l 
SFCLAS(K)a»'EULA6( J) 

KK»BrcLAS(t^) 

ICAKNT(kX)>1CAKNT(KK)«1 
IFCCNECK.EQ.O) 6P T0 91 
P0TCAT<CmECK)sKK 


10111146 00«jUt»77 


l»AOC 7 


FORTRAN tVvPLUS 
R6RR0P.FTN 
0257 


0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 
0267 


V02«04 
/TRlAuL/WR 
Q0 T« 5i 

49 CONTINUE 

IF(RFClAS(iO,NE.O) GP T0 5P 
IFCC^'SCk.NF.O) 0PTCAT(CmECk)6»3 
NTH«NTH*1 
60 TP 9i 

50 KKiBFCLaS(k) 

ICAKNT(KK)sICAKNT(KK)*1 

51 CONTINUE 

W9ITE<7*M’LIN) lOFCLASID.Ial.NPlX) 

52 CONTINUE 

PIXEL COUNTS CPMPLFTF RE51r PR0P0RTIRN C0MPUTATI0N$ 


ORIGINAL PAGE IS 
OP POOR QUALITY 


026b 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 


0287 

0286 

0289 

0290 

0291 

0292 


XiO 

00 53 ItltMAXCAT 
IF(C4TNAM<l),Nf ,'X'» GP T0 53 
X«I 

53 CPNTIMUE 
NUP«NlIN*NPIX 

IF«X ,f0. 0) G'' T0 153 
UMD«NLP-irAKNT(X)*NOUPlX*f TH 
G8 TP 154 

153 UMO*nLP«N»'UPIX»nTH 

154 na 54 i«i,maxcat 

«£CPCT<n« 100 ,»(FLPAT(ICAKNT( I))/FL0ATlUNin)) 

54 CONTINUE 

IF«x ‘.PO. 0 ) GP T0 155 

a£CPCT(X)»(FL04T(ICAKNT(V))/rL8AT(NLP) )»100| 

155 PEPD'i«tFL0AT(Nnt)Plx)/FL0AT<NLP>)«lOO, 
P£Bi:'.'i(FL«iAT(NnuPlX)/FL04T(NLPn«lOO, 
P£PT^^»(FL0AT<NTM)/rL0ATC»'LP) )«100| 
PEPuND*<rLl**T(llNlD)/FLP4T(NLP) )»lOOi 

c PR*P:-bTjFn Cf'«‘*UTATI0NS CR'^PLETfe PRINT REP08T 
C CAPy PfcC‘'MPUT£n pROPPHTIPnS iNTg 6L09AL C0MM0N‘, 

03 55 I«1»N0CAT 

CaTkMT(I)»ICAKNT(I) 

55 C0AT1NUE 

N/r/B.-.DjtPIX 
w30g *\DGP I X 
N0Tm«nTh 


C PHIkT P£P0PT, , .CALL RFCpRN(7), 


0293 

0294 

0295 

0296 56 

0297 57 

0298 

0299 

0300 

0301 

0302 

0303 59 

0304 

0305 

0306 • 

• 

0307 • 


CALL SfcCP«N(7) 

IF (2 ,EQ. 0) Gt* TB 56 
r,^ T ’ 6 
wr1T£(6,57) 

Fk5RMAT<*« type £(X)IT FR (P)FCVCLE >') 

CALL ?UTPUT(7) 

R£Ar:(6ie> u 

CALL FR0NT(W,7A) 

TF(u(l) ,B0, »XM G0 TP 59 
G2 T« 6 
1 1«2 

CALL ELAPSF(II) 

include *SVIC3O0.33CAHSAVE,InC» 

0P£\ ( uivIT«1»NAMEc*C3OO|1]OL86aL.ThP|1SF0RNp*UNF0RHATTEO 
TYPfet*UNKN0WN»,FRR«9999) 

WR1TE<1)C1 


10111146 00«JUI»7T 


f»A«l • 


u 


ranTRAin tvaPius 
RBM0P|FTN 
0300 
0306 

0310 

0311 

0312 

0313 

0314 « 9969 

0319 • 9990 

0316 • 9991 

0317 
0316 

0319 

0320 

0321 

0322 

0323 

0324 


V02*04 

/T9|AUL/WR 

M9tT2(l}C2 

M9lTEUtC3 

H9ITEC1)C4 

W9|Tgfl)C9 

Cl.eSE(U»'tT«l) 

69 T9 9991 
TVpe 9990 
r9RMAT(lX,*??PEN 
CCnTII^UE 
CALL CL6SE(6) 
CALL CL08E(1O} 
CL9SE(UKtT«7) 
CL9SE(UMtT«6) 
CALL CL08E(9) 
CALL DETACH 
CALL $ETEF(93) 
END 


FAILURE 0N C3OO.19OL06AL«TMP*«N0 PgSTARTt} 






16. RECOMPUTE PROPORTIONS/CLASS IFICATIOH MAP DISPLAV 






IRtSUB(l,i • 0 




































16.1 SUBROUTINE FDLINT 


riRTRAN IV, 

rOUNT.rTN 

QOOt 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

C| 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

C| 

Cl 

Cl 

Cl 

C| 

Cl 


PLUS V02«04 10I1SI46 QS«JUL«77 

/TRiALl/Wft 

SUBRf UT I NS PDL I NT ( P I ELO I NPTS • r L I VL 1 NS I NiAHPi J J I 


PASS it 


this SUbNSUTINE hill return the pixel nuhbsrs ep these 

PIXELS BN A A QIVEN LINE THAT aRE eENTAlNED WlTNlN TNE 
BBUNDaRiES bp a NSNaRECTANQULAR PIELD 


INPUT FIELD • NBN*RECTaNQUlAR PIEIO TAELS 

ALL the vert less HUST BE IN CLEOKHlSE 
0RDER AND THE LAST VERTEX HAS TE BE EQUAL 
T0 THE FIRST VSRTEX P0R FIELD CLESURE 
THE FIRST vertex HUST HAVE MINIHUH 
PIXEL VALUE 

NPTS • N** 0F prints rF the N«R FIELD 
YLINE • SCAN LINE NUHBSR 

0UTPUT PL • ARRAY C0NTAlNlNQ THE 0ROERED PIXEL INTERCEPTS 
NSAHP • NP 0F SAHPLES CBnTAINEO IN THE FIELD BP 
A GIVEN SCAN lINE 

JJ • THE length 0F The ARRAY FL 


0002 


parameter MAXIb8 

0003 


O1MENSI0N FlELO(2iNPTS)iFL(H 

0004 


integer Xl.X2»Yl.Y2,XX.FL»FI 

0005 


integer XNM1,YNM1,XNP2*YNP2 

0006 


IF<NPtS.EQ,2)60 T0 35 


C* 

ONE vertex field 

0007 


L» YLINE 

0008 


D0 7 N ■ l.HAXI 

0009 

7 

FL(N) ■ 0 

0010 


NPTSE • NPTS-1 

ooi: 


I ■ 1 

0012 


JJ ■ 0 

0013 

100 

XliFIELDCl.l) 

0014 


Yl>riELD(2*I) 

0019 


J ■ I«1 

0016 


X2«FIELD(1,J> 

0017 


Y2aFlEL0(2.J) 

0018 


IF ( I .SO. 1 ) G0 TP 200 

0019 


IHl • 1*1 

0020 


XNHlarlEUO(liIMl) 

0021 


YNH1«FIeLD(2i1M1) 

0022 


G0 TP 300 

0023 

200 

XNMiaFlELO(ltNPTSE) 

0024 


VNMlaFlELDC2|NPTSE) 

0029 

300 

IPl a U1 

0026 


XNPlaFlELD(liIPl) 

0027 


YNPiaFlELD(2*lPl) 

0028 


IF I I .EG, NPTSE) 6P T0 400 

0029 


IP? a I«2 

0030 


XNP2aFlElD(liIP2) 

0031 


YNP2aFlELD(2ilP2) 

0032 


60 TP 9oO 

0033 

409 

XNP2aFlELD(lf2> 

0034 


YNP2aFlELC(2.2) 

0039 

900 

IF ( Yl lEO, Y2 ) 60 T0 1000 


10I12I4A 09«JUL«77 


PA9E tl 


} 60 re 600 

) 60 T0 600 


OKIGCW- p,,... , 

U'A : ' 


ripmN iv*plus vo2«Q4 

rOtlNTifTN /TRiAlL/WR 

0096 lF(a.EQ,Y?).AN0'.(Y2;EOtVNP2n 60 TO 2000 

0097 ir((i.EQ.Yi).ANr;(Yi;E6iYN*an oo te 2000 

0090 RL * L 

0099 RXl • XI 

0040 RX2 « X 2 

0041 RYl * VI 

0042 RY2 • V 2 

0043 RXX •(((RL«RY1)*(RX2«RX1))/(RY2«RV1U«RX1 

0044 XX • RXX«|9 

0045 IF(Y1.LT.Y2) GO T0 SlO 

0046 XXaRXx 

0047 IF((RXX-XX)«GT'..9) XXaXX*! 

0040 510 C0^*TInUE 

0049 IF ((XX.GE. XI) .AMO*. (XX ‘.L0i R2) 

0090 IF ((XX. IE, XI) ,A^iD‘. (XX '. 6 E 1 X2) 

0091 2000 I « !♦! 

0092 IF ( I '.GT. NPTSE ) 60 T0 5 

0093 GO TP iOO 

0094 600 IF(L.LE.V1.AND.L.6EiY2) Q0 T0 TOO 

0099 IF(L.L£.V2.ANO.L‘.0?,Y1) 60 T0 TOO 

0096 60 2 ono 

0097 700 JJ • JJ*1 

0090 FKJJ) ■ XX 

0099 IF ( jJ .EG, 1 ) G*' TO 2000 

0060 IF ( 1 .NE. NPTSE ) G0 T0 3000 

0061 IF('L.nE.Y2) G0 T0 3000 

0062 XNMisxl 

0063 YN'^iavl 

0064 X13X2 

0069 Yl«v2 

0066 X2«ngL0(1.2) 

0067 Y2«FUL0(2.2) 

0068 60 TP 3oOl 

0069 300ft IF ( L ,N 6 , VI ) GP T 0 200" 

0070 3001 IF ((Vl.LT, VNMl) ’.ANQ, (Y1 , 6 T, Y2 )) 60 T0 4000 

0071 IF (<vl . 6 T, YNMl) ,ANO, (Vl ,lT. v2)) 60 T0 4000 

0072 60 TP ?000 

0073 4000 FUJJ) a 0 

0074 JJ a JJ-1 

0079 60 TP 2000 

0076 1000 IF(L.^•E.Vl) G 0 TP 7000 

0077 1F(X1,GT.X2) 6 ft 70 9000 

0070 IF<VMm1,LT,V1) Q0 t0 6000 

0079 IF ( VN'P2 , 6 T, Y2 ) G0 T0 7000 

0000 JJ a JJ«1 

0001 FL(JJ) a XI 

0082 G 0 TO 2000 

0003 7000 JJ a jj«l 

0004 FL(JJ) a XI 

0009 Hh a jj«l 

0086 FL(HM) ■ X2 

0007 ' JJ a hM 

0000 60 TP 2000 

0089 6000 IF ( yNP2 ,LT, Y2 ) 60 T0 2000 

0090 JJ a jj«l 

0091 FUJJ) a X2 


fiRTIlAN 

IVvPLUO V02«04 10112146 09«JUL»77 

rPlINT.FTN 

/toiall/ur 


ftota 


GO TO 2000 


00t3 

9000 

tr ( vnhI «lt, VI 1 00 

TO 9000 

OOt4 


ir ( VNp2 ,QT, V2 ) 00 

TO 2000 

OOfS 


JJ 9 JJ*1 


0096 


PL(JJ} • X2 


OOf? 


tF<NPTSEtEQ.2)rL(JJ)«Xl 

00ft 


GO TO 2000 


OOff 

9000 

IF ( VNp2 ,QT« V2 1 00 

T9 8000 

0100 


JJ • JJ*1 


0101 


FL(JJ) ■ XI 


0102 


NM 9 JJ«1 


0103 


FL(NH) ■ X2 


0104 


JJ 9 


OIOS 


GO TO 2000 


0106 

0000 

JJ 9 JJ*1 


0107 


FL(JJ) • XI 


0100 


60 TO 2000 


OlOf 

s 

NPTSl 9 Jj«i 


Olio 


00 29 NI 9 ItNPTSl 


0111 


NPl 9 Nl*l 


0112 


00 29 Nj 9 NPl.JJ 


Oils 


IF ( FUND » FLCNJ) ) 

29t29«20 

0114 

24 

NT6HP 9 FLCND 


Oils 


FLfNI) 9 FL(NJ) 


0116 


FU(NJ) 9 NTEHP 


OUT 

29 

CONTINUE 


out 


NSANP 9 0 


0119 


DO 30 N 9 


0120 


NN 9 N*1 


0121 


NSANP 9 NSaHP«(FL(NN) « 

FL(N)*1» 

0122 

30 

CONTINUE 


0123 


RETURN 


0124 

39 

IF(YI.INE*NE.FlEL0(2«inRETURN 

012S 


FW<l)9F|EL0a,l) 


0126 


FU2UFlEtD(l.l) 


0127 


NSANPsl 


0120 


JJ«2 


0129 


RETURN 


0130 


END 





u 


\ 






t 

16.1 SUBROUTINE FDLINT 

A flow chart for this subroutine is not available. 



16.2 80BR00TINB RECPRN 


flRTRAN IVaPtUS V02«04 


RiCPRNtFTN 
0001 


0002 

0003 

0004 
0009 


10113104 09ajUl>«77 


PAM li 


0006 

0007 


c* 


/TPlALl/WP 
SUBRQUTINE RECPRMtA) 

This subroutine prints recomputed proportionSi 
implicit integer (A»2) 
include *SVIC3OO.33CAH8C0HOK.1NC* 
include *SVIC300i33CAHSPARaM|1nC' 

parameter MAXCAT«60(MAXSUBt60|MAXCMNP4|NPlXPlB6iNLINRll7«NAXrLDPS0 
i*MAXVilliND0TS«2O9.OLSKlPRlO.OS8KtPRlO«HAXACOt6«MAXACC«4i 
2NBSPUD«6*NflDTND«10 

equivalence (Ci|AC0ATE)i(C2*ISE0l*(C3iPPLAQ)t(e4iTXl)«(e9«0|SKlD) 
INTEGER CK469), 02(296) *03(711 .CAISAOIiCStOat) 


0008 

0009 

0010 


0011 

0012 

0013 

0014 
0019 


0016 

0017 

0018 


0019 

0020 
0021 


0022 

0023 

0024 

0029 


0026 

0027 

0020 

0029 

0030 
OOSl 


integer ACDATE.SUBCATiSUBPpPiCaTKNTiCATTM 
BYTE CHnVEC* N0CHAN. N0SUB* 09TCAT* 02TCLU 

C0HM0N/C0M1/ACDATE ( 2 . MAXACC ) * ChNVEC i HAXCHN* NAXACC) .NBCMANiNtBUB* 
lSURCAT(MAXSUR}|SUBP0P(HAXSu6)«CATKNTIMAXeAT)«CATTH(NAXCAT),NBD0* 
2N0DU * N'*TH* D0TC AT ( NO0TS ) * D0TCLU ( ND0TS ) 

C* 

integer *OATE$iSUNA2.ANALST«rk.DOAVtD0TOAV*POATEl*TOATEl 
integer POATE2*TOATE2|POATE3iTOATE3iCATNAMiDISK1D*RANDBH«OR|D 
byte OElFLG*N0ACQ*S0IL6RiSUNEL*N8TaRT*NTYPB1«ALR»ALRR 
BYTE PCTCT.PCTCTP, VAR, VARB.OLABEL* TYPE 

C0HHrM/C0M2/ISEG,DELrLG|N0ACOiADATS$(2,NAXACD),8BtLOl*(MAXACO)« 

lSUNEL(^AXACD)iSUNA2(HAXACD).lMpATE(2)iANALST(9)irL00*Y(2)i 

2D0TDAv(2)*NSTART.NTYPEl|PDATGl(2),TDATEl(2)»PDATE2(2)iTOATE2f2), 

3PDATE3(?)*TOATE3(2)iN0CAT,CATNAM(PAXeAT)*ALR(HAXeAn«ALRi« 

4 PCTCT(HAXCAT)*PCTCT0,VAR(MAXeAT)*VARB 

Cp 

integer EFLA61,ErLAG2,EFLAG3.ErLA64iEPLAQ9iUP|.A61*uFU02«UrLA6S* 
1UFLAG4 

integer PFLA6,nSKMvT 

C0MHP|g/cMM3/PFLAG.D$KMNT*EFLA6l*EFLAG2,GrLA6S»EFlAQ4(EFkAB9|UFLAOl 

l«UrLA62,UFLAQ3,UPLA64,NEWLAB(MAXSLB) 

C* 

integer Txi.TYl.TX2,TY2iACnlSP.6,B.DrwiNO,D0TARY*6MlN,OMAX*FUL 
integer SPWlNDiCLAWNO,CLUH*^iO 

C0MMPN/C0H4/TXl,TYtiTX2,TYP,IXi,IYliIX2,lY2*ACDISP(2>* II1(4},6(4)* 
1B(4 ),dTwIND(S,N0OTwD),SPUInO(9,N0SPHD),IHWIND(4)|NUMO0Ti 
2D0TAPY(NneTS),GMlN.QHAX,FUL(2*7)|CLAWNn(8),CLUWND(8) 
C0mmPn/cF'M9/OISKID.RAND0H(nOPTS),GRIO(NO0TS)«DLABElIMD 0T9), 
lTYP6(NPaTS)*RECLPC 

real RECPCT(maxCaT),pERD>;**PErCIJ, PERTH, PERUND.CATX 
byte HMS(6)*H(T4),MV,VERTEX,L0WHI,8FCLUS(NPtX)i 
1 RFClAS<NPIX),FLDINT(MAXFLD)iCMAN,LA0EL 

C0MhC^N/RCP/ ICAK^'T(HAXSUo)*IRESUB(MAXSU6)*fLDNAM(3*MAXfL0)* 

1 LAPEL(MAXFLD),VERTPX(2,HAXV,MAXPLD)*NV(HAXrLD)*FlEUO(2«MAXV>, 

2 L0WNI(MAXFLD,2),PL(S,MAXPLD),FLL(O)*D1RCAT(NO0TS), 

3 CHAn(i6),X,RECPCT,PERD0*PEROU*PERTH*PERUNO, 

4 NLR,^'0RPIX,NDUPIX|NTH,UNID 

C begin PR0CESSINQ. 

KPliO 

KF?#0 

PAGE>0 

C FILL classification CHANNEL VECT0R, 

K«1 

itpchn»o 

00 1 I*l, MAXACC 


10 1 IS 1 04 0S«JUl»77 


Pkn xf 


ivvPLUs 

RiCMN.FTN 

0082 

0083 

0084 

0085 
0084 
0087 

0036 2 

0039 1 

0040 3 

0041 

0042 

0043 

0044 

0049 4 

0047 5 

0046 


0049 


0090 

0091 

0092 

0093 

0094 
0099 
0094 
0097 
0096 

0099 


1 

2 


170 

171 


1 

2 

3 

4 
9 
6 


original paop » 

OR POOR 


V02«04 
/TR|AlL/WR 
06 2 J«liHAXCHN 
K«J«(t*l)*HAXCHN 
CHAN(K)i0 

tf(CHMVEC<J*I) lEO; 0) 69 TO 2 
IT0CNN*tT6CHN#l 
CHAN(tT6CHN)«K 
C6NT1NME 
CONTINUE 

ir(KF2 .EQ. N9CAT) PAQE«0 
CAIL lDATE(tM,t0.tT) 

CALL TlNE(HHS) 

CALL 0UTPUT(27il2) 

WRITE(6,4) IM»t0.tV,(HH8(J)tJ«lt6) 

r6RHAT(5lX( *nATEt M2« V* 12* !/M2/9lX« *T|MEI S6A3/) 

WRlTE(6t9) 

PORNAT</lX(*RECOHPUrEO PROPORTtONS REPORT*/) 
UR1TE(6,6) lSE6|((ACDATE(|iJ)il«li2)tJtl«NAXACC)t 

(CHAN(K)«Kal.IT4CHN) 
r0RMAT(/lX«*SEQHENT ID *.16/ 
lXi*ACOUtStTt0N DATES • i «( 12. IS.lX)/ 
lX«*CLASSinCAT13N channels •*16U2ilX)/) 

IMPAgE «NE( 0) 80 T0 12 
KP2«0 

IF<X ,NE, 0) 80 TO 170 

CATX«0 

ICATXtO 

G0 T<? 171 

CATx*RECPCT(X) 

ICATXalCAKNT(X) 

write ( 6, 7) NLP.NP0PIX|PE0D0*NOUPlX«P6ROU«NTHtP6RTH< 

icatx.catx.unid.perund 


rORMAT</ 91 X. *PER CENT*/ 
lX.'NuHBER 0 P PIXELS IN 
or 

0F 

or 


IX. * NUMBER 
IX, 'Number 
IX, 'NUMBER 
IX, 'Number 
IX. 'NUMBER 


00 

nu 


scene*, 7 X, 15 / 
*,llX,19,l3X,r6.2/ 
uu riKCbs * ,llX, 19,13X,f4.2/ 
THQESH 0 LOEO PIXELS * , 2 X, 19,l3X«r6,2/ 
CATEGORY X PIXELS * , 3 X, t9«lSX,r4,2/ 

*,lX, 19 . 1 SX«r 4 , 2 /) 


pixels 

PIXELS 


or IDENTiriABLE PIXELS 


0040 


PA 6 E »1 

0041 

8 

WRITE( 6 , 9 ) 

0042 

9 

r 0 RHAT(/*i type in E(X)iT, <r)Ecycle, 0r Page (fibRnard >*) 

0063 


CALL 0 UTPUT( 7 ) 

0064 


<*EAD( 6 » 1 Q) U 

0049 

10 

F 0 RmAT( 74 A 1 ) 

0046 


CALL FR 0 NT(K, 74 ) 


c 

analyse analyst input, 


c 

valid 0 PTI 0 NS ARE X,P,r, 

0047 


IF(W(l) ,EO. *X*) 60 T0 19 

0046 


IF(w<l) .EO, *R*) 60 T0 20 

0049 


IF(w(l) ,EQ. *F' , 0 R. W(i) ,eQ, * *) 00 T 0 3 

0070 


WRtTE( 6 ,ll) 

0071 

11 

F0Rhat(6x, 'INVALID INPUT,, .Try again*/) 

0072 


60 T 0 6 

0073 

12 

inxFl ,nE. 0) G3 T0 14 

0074 

13 

Krial 

0079 


Kr2*5 


Xox 


rSRTRAN 

tv. 

•Plus 

V02-04 

10113104 09ajUU«77 P6EE 

REePDN. 

ftn 


/TR|ALL/mR 


0076 



IftKFa ,QT, 

N0CAT} KF29N0CAT 

0077 



60 re 16 


0070 

14 


tF(KF2 ,LT. 

N0CAT) 60 T0 19 

0079 



KFI«0 


0000 



<F2«0 


0001 



PAGE*0 


0002 



60 TP 3 


0063 

15 


KF1«KF2*1 


0064 



KF2«KF1*4 


0069 



IFUF2 ,6T, 

N0CAT)KF2«N0eAT 

0066 

16 


WP|T6<6,17) 


0067 

17 


F0RMAT(/lXi * 

CATE60RYM9X« 'NUMBER 0F PlXELSMfXt 



1 

’X 0F tOENTIFlABLES5Xt'MUHeE6 6F PIXELSV16X« 



2 

MM CATE60PY 

M4X« tPtXELSMZXi 'THRBSH0LOEO*/) 

0066 



WRlrE(6«16) 

((eATNAM<ni!CAKNTn)«REePeT(!l«CATTH(I)> 



1 

UKF1.KF2) 


0069 

16 


F0RmAT<4X|A2 

«lSX.I9,16X«F6|2.19X«t9/) 

0090 



60 TP 6 


0091 

19 


AaO 


0092 



60 TP 2l 


0093 

20 


Atl 


0094 

21 


return 


0095 



END 



PAGE IS 
OP POOR QUAUTY 


ie.2 ettanotlTIME RECPRN 

A fXw Chart for this aybroutlca la not availabla 



ley 




'fit' *"»'i-«''i'.:'» / i> '£yr'’»fiiTfWk.'«"‘»wf*'mwii'-' 


16.3 8UBR00TINE CIADI8 


MrVRTRAN |V«PWU8 V08«04 10 I Si I 88 t8njUN«77 PA88 1 


CLA0t8«rTN /T8|BL0eK8/N8 

C 

C CkASSiriCATIIN HAP 0I8PLAV 

C 

c seupes prospah ciSiiiAOjekAOiP.fTN 

c 

C MPtTTfN by QEPAID CHAHPAQN8 

C 

C THIS PP 80 PAN PP80UC88 A ekA8StriCAT|8N 

C MAP DI8PLAY 

C 
C 

0001 implicit lNTEQeR(A«il 

0002 INCLUPB «CSOO|S]eAMSe0M8N«|NC* 

0003 • include 'SVlCSOOiSSCAHSPAPAM'tlNCt 

0004 • PAPAMETEP MAXCATi40|MAX8U8«40«NAXCHNi4«NPlXft94iNLiN«tl7fMAKfLDP90 

• liHAXValiiNO0TSf2O9.OLSK|P«lO«DSSKIPflO«HAXACO*4tHAXACC«4i 

• 2N0SPUDM«N0DTMDi1O 

0009 • equivalence (CltACDATE)i(C2iISEQ)i(CS(PPLA0}«(C4iTXlMC9*D|9Xf0l 

0006 • integer Cl(469)|C2(296)iC3(7l)«C4(34a),C9(62P) 

• C« 

0007 • integer ACDATE*SUBCATfSU8PPP*CATKNTiCATTH 

0000 • byte CHNVECtNBCHAN.N0SUB(OPTCAT«DBTCLU 

0009 • C0MN0N/C0Ml/ACOATE(2«MAXACC)fCHNVEC<NAXOMNiMAXACC).NBCHAN«NB9UBt 

• 1SU0CAT(NAXSUB).SUBP0P(MAXSUB)iCATKNT(NAXQAT)«CATTM(HAXCAT)iN0O0« 

• 2N0DUiN0TH«O0TCAT(ND0TS)iO0TCLU(NO0TS) 

• c* 

0010 • INTEGER AOATESiSUNA2«ANALST«rLDDAY«O0TDAV.POATEliTDATEl 

0011 • integer PDATE2«TDATE2<PDATE3iTDATE3ieATNAM«0t8KlDiRAN00NfGR|0 

0012 • BYTE DElPL6iN0ACQ«S0IL6PiSUNEL*NSTaPT«NTYPE1«ALPiALPB 

0013 • BYTE PCTCT.PCTCTPiVAR.VAP0«OLABELiTYPE 

0014 • C0HH0N/C0H2/ISEG«OEirL6fN0ACQiAOATES<2|HAXACD}t80lLQP(HAXACOI* 

• lSUNEL(HAXACD}»8UNAt(MAXACD}||HCATE(8)*ANAL8T(9)irLL««'>Y(8lf 

• 2O0TOAY(2)«NSTARTiNTYPEl|POATfil(2)*TOATEll2)iPOATE2(2)«TOATE2f2}t 

• 3PDATE3(2)<TDATE3(2)|N0CAT|CATNaH(HAXCAT)«ALP(NAXCAT}iALP0i 

• 4 PCTCT(MAXCAn|PCTCYO,VAP(MAXCAT}|VAP0 


0015 

0016 
0017 


0018 

0019 

0020 


0021 

0022 

0023 

0024 
0029 
0026 

0027 

0028 


1 NTEOER EPLAGI , EPU08 1 EPLAG3 « EfL A64 1 EPLAB9* UPL AQli UFlAOSi UPLA6S « 
1UFLA04 

integer PPLAOfDSKMNT 

C0HM0N/CBM3/PFLA6iD8KNNTiEPLA6liEPLA62tEPLAQS«ErLAO4«EPLAG9<UrLAQl 

1iUFLA02«UFLA63.UPLA04,NBWLaBIHaX8UB) 

integer TXl,TYl,TX2iTY2iACOt8P.6«e*DTWIND.D0TAPYiOMlN,GHAX.PUL 

integer SPWlNDtCLAWNOiCLUWPD 

C0HHPN/CBM4/TX1|TY1«TX2|TY2i IX l* lYli IX2« |Y2i AC0|8Pi2l« I 11(4)|0(4) « 
lB(4||DTulND(9|N0OTWD)i8PWlNDf9«N08PHD)ilMUIND(4liNUHD0T* 
2D0 TaRY(ND0T8)«GM{N.QMAX«FUL(2«7)«CLAWND(B)iCLUHNB(8> 

C0HN0N/CBH9/D t SK I D . PANP0H C ND0 Ts ) i OP 1 D I NO0T8 ) i DLABEl. i ND0T8 ) i 
1TYPE(nD0T8)|PECL0C 
COHM0N /L0C0M2/CMA8K 

C0HM0N /200H/ie(4)<TCC4MX«lY,TXiTY*HX*MY 
C0MN0N /rATAL/l0.PP 

DIMENSION IX(912)i)Y(912),TX(»l2)tTY(9i8) 
dimension CMASK(40)i SrORO(4) 
byte H<74), AT|ME(8) 

NPlX4*NPIX/4 


ORIGINAL PAGE L' 
OP POOR QUALITY 


flKTRAN IV^LUS 
CUOlSiftN 

0029 

0090 

1 

0091 

0092 

0039 

C 

C 

e 

0094 

0099 

C 

C 

C 

0096 

0037 

0030 10 
C 

0099 

0040 

0041 19 

e 

c 

e 

0042 

0043 

C 

C 

C 

0044 20 


0049 


0046 

0047 
0040 
0049 
0090 


0091 

0092 
0099 
0094 
0099 

0096 

0097 
0090 
0099 
0060 
0061 
0062 
0069 


1 


C 

c 

c 


29 


C 

c 

c 


90 


40 


¥02«04 10191120 29«jUN«77 9A06 2 

/TOlOLOCKS/WO 

CALL ATTACH 

OMN f UH 1 T«0 « nans* • C 900 « 1 9CU ASOMAO i TH9 ( • TVOI* • UNKHOHN * $ 

Aceessp • 0 1 oECT « I oecoros i ibvnp i xa • n Axme«NL t n > 

CALL 0UTPUT(27*12) 

CALL |DATECHM«00*YV) 

CALL TtHE(ATlMS) 


OISPLAV STANOAPO HEAOIHQ AND PPOQPAH NAHE 

UPtTE(6(820) HH<DO«VV|AT|ME 
WPtTB|6,eiO) 


CHECK nearest NEIQHBOR flLE EXIETANCE rUAO 

tP(CrLA02«NE*l) WR|TE(6*O90) 

IPCErLAQE.NE.l) 60 T0 777 
CONTINUE 

DO 19 I«1iMAXCAT 
eHASK(l)«0 

continue 


get coordinates 

CAU OETCOOCtCtTCilSET) 

IPOSET.EQ.O) 00 TO 777 

ALLOW TOP 2O0NIN6 UP OR DOWN 

CALL 20O00H<lC(l)f IC(2)»ICf3)*lC(4)«TC(l)iTC(2)«TC(9)iTC(4)» 

tXitV.TX,TVfOXi«DVi*HX«HyiDNX) 

iriiO.EQ.l) GO TO 10 

SAVE COORDINATES IN OLOOAL COHN0N 


DO 25 UliO 

irdiLE.4) CLAWND(I)aTC(I) 
ird,LE,4) GO TO 29 
eLAWND(l)«ie(t*4) 

continue 


LIST USER options 


URITE(6,640) 

CALL 0UTPUT(7) 

REAO(6iOOO) U 
CALL rR0NT(Ni74) 
lf(w(l)«EOi*Nt| 60 TO 40 

iriHdi.EOdY'i CALL lists 

ir(U(l),EQ.*VM GO TO 40 
inu(l).EO.*X') GO TO 60 
URITE(6,600) 

60 TO 90 
CONTINUE 
CALL CLATHH 
CALL TNRITE 




riKTRAN tV«PlUt 

CUOtS.rTN 

OOU AO 

00*9 

0096 

00«t 

00*6 

00«9 

0070 

0071 

0072 777 
0079 

0074 

0079 

0076 900 

0077 910 

0079 920 

1 

0070 930 

0090 940 

0091 970 

0092 990 

0093 


V02«04 iO 1 31199 tt«WUN«77 Mil 9 

/TilBLiCKi/Mi 

U9ITE(6,970) 

CALL 0UT6UT(7) 

MA0C6«900) W 
CALL rMNTfM*74) 
tr<W(ll|IOt*IM| 99 T9 10 
If(M(lMQ.*Xt| 09 T9 777 
M9tT9C9<990) 

99 T9 60 
CONTINUE 
CLOIECUNITVO) 

CALL DiTACM 
CALL 9BTir<99| 
rONMAT(74All 

r0NMAT(/10X*«CLA99iriCATt9N MAN 0I99LAV/HAV 1977*) 
rONHAT(/40X«*OATEI Mti */t 1 12« •/* • tti 
/40X«(TlMl! **9A1| 

rONMATl//* EfLAQf iS NOT IOUaL T0 1M 
r0RMATC/«S LIST 97 CATlO09tE$T (VIES ON fN)0 >*l 
rONMATOt CR)E9TAr? OR ECXUT >*l 
rONMATO INPUT ERROR m TRY AQaINM 
ENO 














16.4 SUBROUTINE L1ST3 


HrBRTRAN IVRUUS V02-Q4 


LISTS, rTN 
0001 

e 

c 

c 

c 

0002 

0003 

0004 
000 $ 


0006 

0007 


C* 


/TRlBtiCKS/WR 

subroutine lists 


10 1 Si MS 2B»JUN*?7 


RASE 1 


THIS RRi? 6 RAH DtSRLAYS 0 N Til T 
CATE 60 RUS and eATS 60 RV NUMBER 


feu; 




IMPLICIT 1 NTE 6 BR U«i) 
include 'CSOniSJCAMSCBMONiINC' 
include •SV|CS 00 ,S 9 CAMSPARaM, 1 nC* 

parameter HAXCAT* 60 ,MAXSUBaA 0 ,HAXCMN« 4 ,NPlXfl 96 ,NLiNAll 7 fMAXPLDa $0 
l,MAXVili,ND 0 TS« 2 O 9 .OLSKlRilOiOS$KlP«lO,HAXACO« 6 ,MAXACCa 4 t 
2 N 0 SPWD« 6 iN 0 DTHD« 1 O 

EOUIVALEMCE (Cl,AC 0 ATB),(C 2 «ISE 6 )i(C 3 <PFLA 6 ),(C 4 iTXi)«<C 9 , 01 SK 10 ) 
integer C 1 C 469 ),C 2 ( 256 ),C 3 ( 71 ),C 4 |S 40 ),C 9 ( 429 ) 


0006 

0009 

0010 


0011 

0012 

0013 

0014 
0019 


integer ACDATE. subcat, SURPpP,CaTKKT,CATTH 
BYTE CMNVEC, N 0 CHAN. NOSUB, ORTCATi DBTCLU 

C 0 Hn 0 N/COM 1 /ACOATE( 2 ,HAXACC),CmNVEC(MAXCMN,MAXACC),N 0 CHAN|N 0 SUR, 

1 SUBCAT(MAXSUB).SUBPBP(HAXSuB)iCATKNT(MAXCAT),CATTH(MAXCAT),N 0 D 0 , 

2 N 0 OU(NOTH,O 0 TCAT(Nn 0 TS),D 0 TCLU(ND 0 TS) 

C* 

INTEGER abates, SUNA 2 ,ANALST,rLDOAY,D 0 TOAY,PDATei,TOATEl 
INTEGER PDATE 2 ,TOATE 2 .P 0 ATE 3 ,TDATE 3 iCATNAM,DtSKlD, random, GRID 
byte DElFLG, NOACO, S 0 IL 6 R, SUNEL, NSTaRT, NTYPE l, alp, AlPO 
BYTE PCTCT,PCTCTP, VAR, VARO.OLAREl, TYPE 

C 0 HH 0 N/C 0 M 2 /I$EG,OELFLG,N 0 aCQ,aOATES( 2 ,MAXACD),S 01 l 6 R(MAXACD), 

1 SUNEL(MaXACD),SUNA 2 (MAXAC 0 ),IM 0 ATE( 2 ),ANALST($),PL 00 AV( 2 I, 

2 D 0 TDAy( 2 ),NSTART,NTYPEl,PDATEl( 2 ),TDATEl( 2 ),PDATE 2 ( 2 },TDATE 2 ( 2 ), 

3 PDATE 3 ( 2 )«TDATE 3 ( 2 ),N 0 CAT,CATNAM(MAXeAT),ALP(MAXCAt)iALPO* 

4 PCTCT(MAXCAT),PCTCT 0 ,VaR(MAXCAT},VAR 0 

C* 


0016 

0017 

0018 


integer EFLAGl,ErLAG 2 ,ErLAG 3 ,ErLAG 4 ,EFLAG 9 ,UFLA 61 ,urLAG 2 ,UrLAG 3 , 
1 UFLAG 4 

integer pflag,dskmnt 

C 0 MMON/COH 3 /PFLAG,OSKNNT,EPLAGl,ErLAG 2 ,EFLA 63 ,ErLAQ 4 ,ErLAG 9 ,UFLA 6 l 

1 ,UFLAQ 2 .UFLA 63 ,UFLAG 4 ,NEuLaB<MaXSUS) 


0019 

0020 
0021 


0022 

0023 

0024 
002 $ 
0026 
0027 
0026 
0029 
OOSO 

0031 

0032 

0033 

0034 
003 $ 


integer TXl,rYl,TX2,TY2,ACDlSP,G,B,DTWlNO,D0TARY,QMlN,QMAX,FUL 
integer SPUIND,CLAWND,CLUNmD 

C0MMPN/C6M4/TX1,TY1,TX2,TY7|IX1,1Y1, 1X2, !Y2,ACD1SP(2M 11(4), GI4), 
lB(4),DTwlND($,N0PTwD),SPWIrjO($,N0SPWD),lMNlND(4),NUMD0T, 
2D0 TARY(nO0TS),GMIN.6HAX,FUL(2,7},CLAWND(6),CLUUND(6) 
C0MM0N/C2M9/DISKID,RAND0H(nD0Ts},6RID<NO0TS),DLABElIND0TB), 
1TYPE(NO0TS),RECL0C 
CALL 0UTPUT(27,12) 

NcN0CaT/2O 

IF(N0CAT.NE,N*2O) N«N*1 
IFfN.QT.3) NfS 
IBEG*1 
IEND«20 

IFCIEnD.GT.NRCAT) lENDaNPCAT 
D0 10 I>1,N 

uRiTE(6,600) (J,U>IBE6,IEnO) 
mRiTE(6,610) (CATNAM(j),U«I6EG,IEND) 

IBeG« 16 EG «20 

IEnD«|END «20 

ir(IEND,GT,N0CAT) lENpaNBCAT 


X(0 


to 1 31143 aO«JUN*77 


•KTRAN IVaRtUS V08*04 
IITSifTN /TR|Bi.tCK8/MR 

034 10 COnTINUI 

037 RITURN 

033 300 riRMATC/* CAT 4 

039 no riRMATt* CATE8BRV 

040 ENB 


••2013) 

•i80(lXtA2)//) 




16.5 SOBBOOTIWE CIATHM 


HraRTRAN |V«RLUS V02*Q4 lOlSflOt 29«JUN*77 RARE 1 

CLATHHiFTN /triblEcks/hr 

0001 subroutine clathn 

e 

C THIS SUBROUTINE ASStQNt CATEOfRlES TO THEMES 

C 


0002 

0003 

0004 

0005 


tHRLtelT INTEGER (A«i) 

INClUDB *C3OOiS3CAM8C0HONilNe' 

1NOI.UOS *SVie300|33CAHSRARAMilN6* 

parameter NANCAT«00iHAXSUBi00|MAxeHNf4iNPtXBl9O«NLiN«U7iMAXF|.O«50 
i*HAXV«ti*NOOTS*2Q9.DLSKtPAtOiOSSKIP«lO.NAXAOO«A|NAXAeCMi 


0006 

0007 


2N0SPWO«6*NOOTHDiiO 

equivalence (CliAC0ATE)i(C2ilSE6)i(CS»PrLA6)«<e4iTXlI*(C9«0t$KIDI 
INTEGER CK469) 102(256)103(71). 04(340) iC9(629) 


C* 


0000 

0009 

0010 


integer ACDATE.SUBCATiSUBPFPiCATKNtfOATTH 
BYTE CHNVEC«N0CHAN.N0SUBiDtlTCAT*DBTeLU 

C0MNON/C0Nl/ACOATfi(2.HAXACC)iCHNVEC(HAXCHN(MAXACC).NOCHAN«N0SUB. 
lSUBCAT(NAXSUB)«SUePBP(HAXSuB)iCATKNT(NAXeAT).CATTH(NAXCAT).NOOO. 
2N0OU* NOTH. O0TC AT ( NO0TS ) . DOTCLU ( ND0TS ) 


C* 


0011 

0012 

0013 

0014 

0015 


integer AOATES*8UNA2.ANALSTiPLDDAVtO0TDAY.PDATEl*TDATGl 
integer POATG2,TDATG2.POATB3iTDATESieATNAN«Dt8KIO»RANI)ON|6R|0 
BYTE OELPL6.N0ACQ. S0IL6 R. SUNIL. NSTaRT.NTYPEI.ALPiALPO 
BYTE PCTCT.PCTCT0. VAR* VAR0.OLAREL. TYPE 

C0MNON/C0N2/ISEQ.OELrLS.N0ACQ(AOATBS(2»NAXACe).8OlLGR(MAXACO). 

lSUNEL(MAXAeD).SUNA2(MAXAeD).IHDATE(2)*ANAL$T(9)«PLDDAY(2). 

2D0TOAY(2).NSTART.NTYPE1.PDaTE1(2).TOATE1(2).PDATE2(2)«TDATE2(2). 

3POATE3(2).TDATE3(2).N0CAT.eATNAM(HAXCAT).ALP(NAXCAT)fALP0* 

4 PCTCT(HAXCAT).PCTCT0«VaR(HAXCAT).VAR0 


C* 


0016 

0017 

0010 


integer ErLA6l.EPLA62.EPLAQ3.EpLA64«ErLA09.UrLAGl.UPLAG2iUrLA0S* 
1UFLAQ4 

integer PPLAO.OSKMNT 

C0HNPN/C0M3/PFLAO.OSKMNT.GPLAOl.EPLAO2(EPL*QS*EFLAO4iErLA69|UFLAQl 

1.UPLAq2,UFLA03.UFLAG4.NSWLaB(MAX8UB) 


0019 

0020 
0021 


0022 

0023 

0024 

0025 

0026 
0027 
0026 
0029 
0C30 

0031 

0032 

0033 

0034 

0035 


INTEGER TXl.TYl.TX2.TY2.ACDl$P.O.B.DTHtND.D0TARY.6MlN«ONAX.rUL 

integer spuind.clawnd.cluwno 

C0MM0N/C0M4/TXl.TYl.TX2.TY2.iXlilYli!X2.tY2.ACOI9P(2).IIl(4).G(4)« 

lB(4),oTHlNO(9|N0DTWD).SPWlND(5.NeSPUD).lNHlNO(4).NUMOOTt 

2O0TARY(NO0TS).6HIN.GMAX.FUL(2«7).CLAHNO(O).eLUHND(O) 

C0MM0N/e0N5/D I SK I 0 . RANDOM ( NORTS ) . GR I D ( NOBTS) . OLABEL ( MOOTS) . 
1TYPS(NO0T$)«RECL0C 
C0MM0N /L0C0M2/CMASK 

C0MM0N /200H/|e(4).TC(4),lX.lT.TX»TY*MX.MY 
dimension lX(5i2).!Y(9i2)«TX(5l2)«TY(5i2) 

BYTE WC74). IB. mOLA6(2) 
byte POSNEO.REPAOO 
equivalence (ILAREL«HDLA<I(1)) 
dimension MA8K(0)(CMASK(60) 

data mask /«*001."002i*’004.'«010.no20i''040.*100.''200/ 
data POSNEO.REPAOO /'P*.«R</ 

!B«0 

10P«1 

WRITE(6,805) 

10 WRITE(6.610) 

e 






F0RTRAN 

)V«PLUS 

V02-04 10132101 2f»jUN«77 RA^E 2 

CLATHM.fTN 

/TRlSteCKS/WR 


C 

6ET THE THEHE NiINBER AND CATE06RY NUNBER 


C 

r 

THEME display BF THE CATE60RY 

0036 

w 

REA0(6«600)W 

0037 


CALL FRBNTCH,74) 

0036 


IF(W(1).EQ.* M CALL 0EFlT2(CMASK) 

0039 


IF(M(1).EQ.* M 00 T0 777 

0040 


IPT«0 

0041 


HOLAB(l)*M(l) 

0042 


1PT«1 

0043 


IFCH(2>.EQ.'.'.0R.W(2).EQ.« •} H0LAB(2lt* • 

0044 


tF(H(2)«EQ.'.'.Bq.U(2).EC*< O 60 T0 It 

0045 


HDLaB(2)*H(2) 

0046 


1PT»2 

0047 

32 

C0NTINUE 

0046 


D6 14 t«liN0CAT 

0049 


tF(CATNAH(t).60'.ILABEL) 6tl ft 16 

0050 

0051 

14 

URiTEtAleSO) ORIGINAL PAGE IS 

0052 


60 T0 30 OP POOR QUAUTY 

0053 

36 

CNUM*I 

0054 


CALL INTFF(|PT.W.74,THHNuhJ 

0055 


IFfTHHNUM,LE,6,0R,THHNUH,6Eil) 60 T0 20 

0056 


URITE(6,660} 

0057 


60 T0 30 

0056 

20 

c 

URITE(6.R20) REPADO 


C 

r 

add 0R REPLACE 

0059 

V 

REAO<6f800) U 

0060 


CALL FR0MT(W#74) 

0061 


IF(H(l).EQ,' M W(1 )bREPaDD 

0062 


!F(W(l).EO.'At) Q0 T0 40 

Q063 


IF(W(1),NE.'R<) uRITE(6«e30) 

0064 


IF(U(1),ME.'RM 60 T0 20 


c 

e 

erase UINO0H AND clear THEME 0N cHASK 

0065 

c 

CALL eLKTNM(ICfl)|IC<2)ilC(3)iIC(4)iTHHNUM|I6il0P} 


V 

c 

POSITIVE 0R negative DISPLAY 

0066 

w 

40 

REPaDD*H(1) 

0067 

45 

CONTINUE 

0066 


WRItE<6.840} P0SNE6 

0069 


READ(6«800) U 

0070 


CALL FR0NT<W,74) 

0071 


inwdi.Eo.' •} um«p0SME6 

0072 


!F<W<l),EO. *P»> 60 TP 50 

0073 


IF<W(l).EO,*Nt) 60 TP 50 

0074 


HRItE(6.830) 

0075 


66 TP 45 

0076 

50 

continue 

0077 


P0SnEG*H(1) 


'Ill 


c 

c 


PAQE I 


riRTRAN 

IVvFLUS ¥08*04 10 i 321 01 88«JUN«77 

CLATHM.fTN 

/T8|8l8CKS/N8 


e 

08 BIT HANIFUkATlBN OF CNASK 

oera 

w 

HvCMASKfCNUM) 

OOT* 
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0012 
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0014 
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610 


>RLUS V02«04 

/TR|6lRCKS/WR 
subroutine DEFLTStCMASK) 

THIS FRBORAH ASSIGNS DEFLAUT CATEOBRIES 
FR0N CLASSIFICATIBN T0 THEMES 

IHRlICIT INTE6BR(A*2) 
tNeiUDE iCSOOiSieAMSCBHBMttNC* 

INCtVOE *SVIC300 i39CAMSPARAM.1nC* 

parameter HAXCATa60|HAX$UB«60iMAxCMNM.HPtX9i96iNLiN*ll7lMAXFl.O«90 
liMAXV«ll»Nn0TS*2O9.Dl.SKlP«lOiDS$KtMlOtNAXACO*6|HAXACC«4| 
2N0SPUD*6iN9DTMOflO 

equivalence (Cl|ACQATE)i(C2itSE6)i(C3tPFLAGI«CC4iTXl)*(e9iD|8KtD) 
integer 01(469) «C2(296)|C3(71)«C4(346)|C9(629) 

INTEGER ACD ATE * SUBCATf SUBPFP* CATKNTi OATTM 
BYTE CHNVECt N0CHAN. NOSUBi DFTCAT i DBTCLU 

C0MN0N/e0Ni/ACI)ATE(2(MAXACC)tCHNVEC(MAXCHNiHAXACC).N0CHAN|N0SUBi 

lSU6eAT(HAXSUB)«SUBP0P(MAXSuB)*eATKNT(HAXeAT)«CATTH(MAXCAT)|N0O0i 

2N0OU*NBTH,P0TCAT(NO0T$)|D0TCLU(ND0TS) 

integer AOATES(SUNA2(ANALST,FLOOAY«D0TDAV,POATEltTOATEl 
INTEGER PDATE2(T!)ATE2.POATE3iTD*TESiCATNAMiDlSK|OtRAHD0Ni6R|B 
byte OElFLG • N0ACQ* S0I LGRi SUNEL* NSTaRT* NTYPEI t A lPi alpb 
BYTE PCtCT,PCTCT0,VAR,VAR0,OLABEL#TYPE 

C0HN0N/CBH2/|SE6tOELFL6|N0ACO|AOATES(2iHAXACO)«S0lLGR(MAXACO)f 
lSUNEL(MA)(ACD)(SUNA2(MAXAeD)f tMDATE(2)*ANALSTl9)|FL0DAY(2)« 
2D0TOAY<2)|NSTART.NTYPE1 |PDaTE1(2)iTDATE1(2)iPDATE2(2)«TDATE2(2)i 
3PDATE3(2)|TDATE3(2)tN0CAT,CATN*M(pAXeAT)(ALPCMAXCAT)|ALPB* 

4 PCTCT(HAXCAT)|PCTCT0.VAP(HAXCAT)iVAR0 

integer EFLA61.EFLA62,EFLA63»ErLA64|EFUA69iUFLA61tUFLA62|UFLA6S. 
1UFLA64 

integer PFLAGfDSKMNT 
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integer SPu|ND.CLAMND«CLUNK!D 

C0MH0N/eBM4/TXl|TYi|TX2iTY2i|Xli|YlitX2itY2|ACDt8P(2)*IU(4)tG(4)i 

lB(4),DTulND(9,N0nTuD)tSPu|vD(9.N08PHO),|MNlNO(4)|NUMD0Ti 

2O0TARY<NO0TS),6HIN.OMAXirUL(2i7)iCLAUND(6)iCLUUND(6) 
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1TYPE(nD0TS).RECL0C 

O|MENS|0N CHA$K(60)|MASK(6) 
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WRITE(4.600) 

D0 30 lBliN0CAT 

uR1TE(6|610) CATNAH(1),| 

MfCMASK(l) 

CMaSK(1)b10R(H|HASK(|>) 

continue 
return 

F0RmAT</3Xi ’DEFAULT*/) 

F0RnAT(3X|A2i2XiI2) 

END 
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HF0STRAN |V«PLUS V02«Q4 
•lASCH.ITN . 7.T8 jPL0C<S/4S 

c nRtvsR ar umRias k(:P*^rt 

INPUICIT INTEGFR (a*2) _ 
include * SY r C sn 0 . 3 ]CAMS'C8 h8n , iVtC t 

include 'SVtC3P0*31CAM$PARAM,i>NC_« 

PARAMgTpP HAyCAT» 60 *MAYSU 6 a 60 *MSxCHN« 4 «NPlXal 96 *NLtN*ll 7 *HAXrLn» 9 C 
liRA.xy 9 U*N? 0 TSa 2 O 9 .DLSX!P.ilO(DS$K{paiO«NAXACOP 6 «MAXACC* 4 * 
2NaSPWC*6,K!iiDT>.!)«10 

EOU|VALE^Xg (Ct*ACnATF),<C2*tSgB),(C3*mA6)i(C4*TXl)«(C9,0|SKI0) 
integer Cl(4A9)iC2(2S6)»C3(7l)*C4(346).CS|629) 


0001 

0002 

OOP 3 

0004 


0009 

0006 


0CC7 
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0P09 


C* 


C* 


INTEGER ACOATc.SUfaCAT.SUPPnP.CiTKKTiCATTM 
. SyiB .C“NyfC»^*'CHAN,M’SUBt 05 iTCAT»ngTCLU 

C0HM0N/C^Ht/ACnATE(2«P!AXACC)»Cw'NVEC(MAXCHN*HAXACC),N0CMAN»NRSUR* 
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0C13 
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— SUIfUuH*>8 88WOeT(r07YRB(A«lASATfeueAT»88O8T«llfOTroi 
iHRLtOlT IMTeCEA (a*8) 

1NCLU08 *8VlCS9OiS3CA*)K0H9Aill«C* 

IACLMOA *8VICS00«3]CAMSPaRam«InC( 

.Parameter 'UKCATfA('tMAX8MB«68|R4]teMl«MiNP|XalfAcN|.lA«U7»R*XrLO*fO 
t*NAXV«lt»NOtfTS«2O9.DL8KlP*10«08flC|Pal0,MAXACnaA«MAXAeCa4« 

— 2M5EJ?B«Ai8«D.|wj}au} _ 

EOUtVAkSNCE (Cli ACHATS) • (C?« tSStf)* tC3«PPLAQ)« fCAtTXi)* (CSi9!9KID) 
INT8AEP ei;469)«C8(29A)fC3(7t},C4C34e)«C9C689) 

INTESA4 ACHArE(8Ut)CAT*SU8PAP|CATKKT«eATTH 
BYTE CH<4VE?«^•^eHAN.l^)•SUB(D^fCAT•08TCLU 
...P0*Ul£^yCBMl/ACnATg(2aHAXA6r}«£uAiy8C(aAXCMN«HAXACe),NBC»*AN«*40Sun* 
ISUBC AT ( hAXSU? } , S J()P0P ( KAXSua ) « CATKMT ( HAXCAT) « CATTHC HAXCAT) , N80 Tf 
240nu»««n^*ni6TCAT(NHeT8)|O0TCLU(ADBT8) 

lATECE^ ADATP8,SJ.v»E,A\AtST|Pl.DOAV.D0TOAY,POATBl*TOATBl 
IPTESEI^ PDATE2*TnATE3,PDATS3«TnATE3*CATNAM«0I8K|D,4A408H»QP|0 
^YTS C5LfLli,N?ACH,$2|l,6R|J5U9lli»^START,NTTP6l,ALP»ALPB 
RYTS aCTCT , PCTCT «‘A9, VA»0, OL Aab|.» TYPE 

C.«;‘M:**/CRH?/tSSQfCf 1^16*^0400* A0AT68(2*NAXAeS)t8PlL6RCNAXACD)» 
l$UVEC(HAAArO)*9U4’A;c:«AXACO)|tP!;ATS(2)f A4ALSTfB>*PL0l>AY<2>* 
XnerDAYi^)* vSTAai«N^YPEliPO.rTSl(2)«TOATPl(2)«POAT82(2)*T0ATR2(2)* 
3P0AT?|(2),TDAT53<?»*f ffCATjCATNAKCPAXCATIiALPCMAXCATJiALPO* 

. 4 PCT2T<-A.rAT»#PCTCT0,VA|!(MAXCAT).VA00 

INTEHeP SfLA6i,Eri. 'U?,erLA^.3*i:rLA64*SPLA69* jrt.Aai«UPtA02*UrLAa.1* 
lUFtA6< 

t):rgGER pPla'5,!)S'<‘' 7 

C«;MM<»,/c5H3/PrLA-),-iS'»s iT*SrLAGl*SrLA32*ErLAQ3*EriA64fErLA69*UPLA61 
l*urLA(3?,slfi.Atl3.ljPC'34,''e L'tJtMAXSt^) 

I^.'gr6A 7Xl,7Yl,TX9,TV2,4C->ISP,ti,6,DTW|N9,O0TARV*O**|N*6HAX»FUL 
I^Tsr,54 SPur-'O.CLA ') »^,CL' - D 

C0. «!' »/CRM4/TAl.rYl*TX3,ry‘>,IXiiiyi,tX7«tY?*ACPI$P(2)*lUC4)*6(4)* 
iHCD.nrmiNniR* j),sp - i o(9,NP8PMH)«iMMimn(4)*ptipD0T* 
2HeTA6v(NU0TS)*1**tv.G»Ay|ruu(P*7)«CLA‘4M9(9),CLUUND(9) 

C£ i<1?m/C^M9/HI3KII;.RAv’: J<*(o 0PTs)*CRin(M0flTS)«DLA8Eu(RBPTS)* 
iTYPEt.v )«TS),PferL'‘C 
►v»i-TPn*o 
NPlaJ 
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•^PSaJ 

IFO^TVPE ’.ER.-l^fc) ^Pia? 

IMA’aRaT ,E0, -I2r.) ,jP2i2 
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►2 N0nTFn*v0OTFP*i 
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$U0P9UT|N| UN0!AS<!KK) 
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|,^CL->oe *SyiC300»43C4MSP4«4f*.r C* 

PARAHE^EP MAKC*T«6'*t^A)(Sg8«60t^'AXCHN«4t!4Piy«t96fNLt!y*U7*MAxr|.n«S0 
l,MAXVall«.\D3TS>20O.DLSKtP«10*OSSKlP9l0«NAXACO«6*HAXACCM» 
2R8SPJ»D«6»N?DT)»n«lO 

EQUtVAUPN'CP (Cl « ACHATE) *(Cp,!SC0)((C3*PrLA6)*CC4*Txl)*(C9»0tSKI0) 
INTEGER Ci(469)(e2(256)tCj(71)|C4(340)tC9(629) 

I^TEfiE? achate, S''B rAT|«U4P?P|CAlKNT»CATTH 
BYTE ':'J'''YE^,■<^ChA^.ui SIiB,D^TCAT,D2TCLu 

CPMM'•,v/C/^^l/A^r.ATe(2,^^AXACC)#CM^VEr(‘1AXCHN»HAXACC),NPCHA‘J,N8SyP, 
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0YTH cLM.FLR,f!fc*Cr','/lLf;K,S' 
4YTtt pr:TCT,PCT.-T‘*, 'A!?,VA'>*, 

-LFLS,‘>’0a 

l4U''eU‘'A<Ar|j),SU*!AA(*'AXA.'^r.) 
2U^ ?nAv<?», -STA9T,MYPel,Pt’A 
JPD'Tr A(2),Tgl»TE3(^),''•l^CAT,r 
4 PCTrT(‘'AVCAT>,PCT 

IME'i.i'x fcrLARl,ePL 
1 JFLACa 


,rLr:wAY.DPTnAY,PDATEl.TPATEl 

3iTrATfc3,CATNAH,DISKlB,QAN0"»^,n'>ir> 

ml,"start,mtvpei,alp,alpp 

3LA>cu,TYPt 

C3,^DATES(2,MAXACn),S0lL6R(MAXACO), 
,!»^rATE{2)»AMALRT(5),rLP0AY(2)» 
TF1«2),TDATP1(2>,«»0aTP2(2),T0ATE2C2», 
Ar\&r (^ aXCAT),ALP(MAXCAT)>AiP9, 
CT}',VAP(MAACAT).VAR'' 


f GPiPFLAi J,trLA(iA,EF LAOS, UPLAG1,MM-AG2,U» LAC 
*lNTerfe‘^ PFLAG,'.3S'N'‘ T 

Cfc=^H.‘».^/f:?H3/PFtAS,''5i^'-'iT,fcrLAi;i »pf !.AG2,6FLAG3,PFLAG4,feFLAG*',IJFLA';i 
1 »L.FLAG?,LFlAG 3, Jri./'C,«,’'‘6AL ^XSL=*> 

IMfeCpJ TXl,TYl,TX?,Tr2,.*C' l)P,3,6,0TwI)V0,n(;TA»TV,Gw|N,GMAX,FML 
I.vTF-.isw SP :p'L,CLA CLO., L 

Crf‘<h?'./C>'M/TAl,TYt ,TX9,TY-,I>i,IYi ,IX2,lVP,ACn|SP(2),IIl(4),GI4), 
- IN M?, -:),sp 'i I'fS. vpSf'wn), iHwiNn(4),NM»*nt.i, 

2 DFT;. Jvt r!f rs) ♦'•■HI I ,', /•/ ,P(.| (5,7) ,CLAUNn(6),Cl.li''Nn(«) 

’ /Cc'rf^/PpKlP.f- * D ’T4),CL'ID(vD?TR),CLABfeL(NDPTS), 

“'’TsjjOfi-LX 

P- 5CT,D'iPrT,TPLT,!JPrT,XPCT*CATPCT(MAXCAT) 
bVTr .(74>,TIr:(8), FFAI'CS) 

C0 !•-.(' n/jC|{* 1/:, 'PCT,Dl PrT,T'M.T,< Pf!T,NPlJ 


C3P^ 

C.1- /jC?.* 2 /C»CaT ( 

0327 

, V / jC(J'*3/i’# TPCT 

PC2.-' 

PliT'-TaJ 

PC?'; 

Pfcf a'.(1)*’T* 

rb3«. 

PtFA' (?)8U*» 

CC31 

PAil'K* .: "CAT 

PC 3? 

•>ii ra'Tl'.'P 

c:?« 

CALL rJTFgT (27,1?) 

0034 

Ti 'MITr (6,1CP0) 

003'* 

V)C' FL'^-*T(1 )«, *SCL f-CT 

ncJ'S 

'MTi (a.lOHg) '.'FFu'i 

ft'37 

l iO*) r.-f'i AT( * »(G);'LLU P" 


CAU. V* )TP|jT <7) 

n33s> 

1?B A!- (,,,?( 0)«i 


wTpiT r.'^vlCP !•) 

(1 ) 

I iTr«,(i )V.v PUIMTE4 PR {T)5RMIvaL 


*,A1,» 


>•) 


ai'3 






fflRTRAM 

eiASCR.F 

00.4Q 

0041 

0C4R 

0043 

0344 

0Q4*> 

004ft 

rc<; 

OShv 

CO? 

0C*«J 

00$2 

0C5i 

0C54 

oc?»;> 

CC5ft 

C;'37 

CS56 

02%^ 

00^0 

OCAl 

CC^? 

996^ 

0C6- 

OCA:? 

ngAA 

C367 

CCf -J 

r\ry~ 

0 37 < 

DC7^ 

?C7'r 

r: 7r 

0 37 7 

f»C7 i 

«C79 

0CP3 • 

P0»1 

rCc^ 

oCf 

r)fp4 

00**? 

PC96 

0C'»»7 

pr!“h 

0C“9 

oco-' 

OCPl 

CC'»2 

0*0.^ 

CC94 


UaPLUS VQ2»a4 . 1612500. 24*JUN«77 

TN /TRiBL0CKS/W4 

.200 F?<»!4AJi74AlL - - 

IFOKD »EQ. 'a»> RO T« 00 
f60i 'L') ca TOO . 

IFtfidJ .00* ‘Tt) f,B T8 10 
IF<W<lJ .60* • M 50 Tf 80 ‘ . 

60 T3 2 \ 

_J0_IEJIlEf>L(l) ..El*-»T‘L-fifl_T2 l| .. . 
!F<0EFAU<1) *b5. *1 M 60 TP 92 

. 50 T0 ?2 

40C C0^'Tt^Ug 

|FtD0PfiT iSO* *'.> Q6 7P! 39 
P«hJM«P'^u^4l 
JJ12«PnJK , 

IF(0UPCT .60. 9.) 

PNllfl*P'U‘‘*l 

IMfPCT ,62. 

If (0'*CT ,E0, 
p\v’’<*r'’ L'^*i 
CBMK'-? 

OF 

IflLTJ.'J.: .ST. TLPAfiE§TLFA?l*; 

60 '7 

DBFaI'C )»'T* 

CgvTlM-.P 

CALL A?SI6' (7, •!! P J 
CALL 7l.'lPU7 (27,1.2', 
iNr»i 

.\/L»" 

5.1 T* 4^0 
tbrA'vd >**:•' 

CAl.L aSSU* (7,'5P"P) 
lvi»? 


RACE 14 


19 

32 

S3 

<4 


I'j 

12 


'.L Tfi 32 


t.) C Ttf 33 


li) fJ, T'» 34 




•*0 

»2 


OC 

92 


?7 


5^■ T" **ni 
OkFA i(l)«‘L' 

CALL ASSIG*'{7, 'UPP ) 

IM;S! 

M2L*7?> 

50 T'* 4Qf, . . 

CPMI\Uc 
J»1 

Pa6F«i 
?60 CkVTl'.fF 

CALL 1I3aT6(PP,''AV,VN) 

in': I2.'/M2.VM2. 

14X,'Pa6L') 

Call TIpF(7Ih) 

^RITfe(7,10l5)TlM,P»GF,TLPArE 

rpP'lATClXiTSO, 'TIMP P ,8 AI,t64, 13, • 0F»,IS) 

„P»lTn 7.1O2O>(UnATLStI.JJ>.fl»2>.Jj«l«N0ACQ) 

riiRMAKlX.Tb, '4C*5L5!TI8N 0 aT6(S) P*12I3) 


1 


rjRTI^A^i iVcPLUS V02»94 16125140 24«juN*77 PA^E 15 

eiASCP.FTN /TPt3L^CKS/hi:) 

_fl28/ . iaH£{7.9M0J 

0096 910C r(gffMAT(50X) 

0097 ilRlTE(7«1225) 

0096 r0RM4r(lX,T6t*««»CLASStrtE'> CATEGOPY PRePORTtORS (UNC0PRECTED}* 


• 0C99 
. 0102.. 
0101 
0102 

01?i 

rii54 

OIQ? 

01«A 

0107 

01«-.» 

01C9 

Oil 

om 
on 5 

3111 

0U4 

0111 

011ft 

ni7 

Oll-ii 

0U9 

oisn 

0121 

01 ?? 

Pl?l 

Cl?4 

P121 

'Jl?6 

01?7 

PI?-, 

01?" 

C13C 

Cl3i 

013? 

0133 

013^ 

0133 

013ft 

0157 

0l3fa 

0139 

014n 

0141 

014? 

014! 

0144 

014? 

014ft 

0147 

014;. 


1*««»* ) 

WRITP(7,9000) 

Sll . 

wRITe(7.1030) 

103C r0RH*T<lX(T5| «CATK60RV* ,Tt6» '«P|XFLS' .TSOi *XPIXEtS**T42* 
1*«02TS 1R*.T?5.*»TVPP. ?« *CATEG0RV* «TS5» 'DPTS* ) 
v«ritP(7, 90001 

Op T^* (?3t72,73»74,75).i®M'T 
23 

ftPI 76(7# 1035) CAT' AM(J),C'T•<^T{J),CA7PCT(J),0!CAT(J)•^^TVPe^(J) 

103? 7 4«-4T(i)(,TU,A2,7^,!1.6i«.r4,l,iOX»l3»9X.tS,/) 

J*J4’1 

ircj .OT, i.,tfCAT» G" T' 199 
If (4 .Ut >7D 3 7,, 2.T 

T'« (16,14,14). I I 

3 'i < Cc.';TI(\J^ 

lf(2-»PCT ,63, 4,1 ‘.j T» 41 
“PlixT*? 

3AI.L SFL02T(-l?a.-^?»',-l.»‘4«--,riDS.) 

17 <K ,L£i I’Kl,) G ‘ Tr 7? 

31 T • '16,14,1 1), I L 
7? .<i<!TF{7,107o) JO* ,C‘^PCT,Lti: ' 

i«3* rpoMatciv.Tii, ♦•)''*.7x,T5,fl',r4,i,i'.x,i3,/) 

S ♦ I • 

61 IF(C;'.>'JT « = •'.» ' T'- ^3 

P|t.I''T#! 

CAU ?HlD2T<-l-4^,,-llP,-2,-l?“,rinu 
IF(? ,L6. Ti 73 

N/ T-. (16,14,1^). I : 

75 •^ftITP(7,1057) ^i;PL-,D'JPrT,i;!r. • 

i?37 7/'»M*T(3 .X,Tii, •j i*.7y,l6,«Jr,'-ft‘.l,10X,I3,/) 

J*J^1 

JUUB-J-I 

*3 IF(TPC^ ♦c‘5. 3.) G.’ TZ 65 

Pi4r4T»4 

OAtL 4?i.I GT (-176,-127,. 3, 

IF (4 .'4L) u’ T t 74 

0/ T’ (16,14,14), 1, I 
74 AhlT6(7,1036) 'v4TH,T'*:T,"Itu| 

iri7 F,v,ftAT(lX,Tll, •TM*.7v,(*>,6v,f4,l,10X,I3»/) 

JT-ttjil 

K*X*l 

65 IMJ^CT .SO, r-.)GP T7 i > 

P .*I V7b« 

''Iv'40irj*DITM*;IY 

IF(«< ,Lc. ft3U) M* 7? 71 
"./i T ’ (16,14,14), I* '1 


$ 




I 


riSRTHA*! 
8IASCW.I 
014» 

019a 

0151 

0152 
OISJ 
0151 

0155 

0156 

0157 
015?» 
015V 
016) 
0161 
C162 
C163 

0164 

0165 

0166 
0167 
016*i 
016y 
017':. 

0171 

0172 

0173 

0174 

0175 

0176 

0177 
017;' 
01-7y 
Olfi;' 

01 n 

OlH 
Clfi 
Ol?4 
Clf5 
3164 
01P7 
016 « 
010» 
OlOQ 

0191 

0192 
9193 

0194 

0195 
019c 
0197 

0191 

0199 

0200 
0201 
C202 


l^mPUiS MlmU i6t2SUH— . 2)«uUN«77 MOi 1« 

T'l /TR|Bl*»CKS/*<9 

75 4Rn£(.7«l019) N0U«<JPCT«a]U . .. 

1039 PaRNAT(lX«T4« 'TOTAL UN*</»T3« * tOEKTIPUBLE* tSX« 19*SXiF4tli 
llOX.I3i/iT7. 'PIXELS') - 
JU«J 

19 09 TO (16*220*220). INO 

16 W«ITP(7,90PO) 

m ilRll£i7*lMa). JEFA'J.(2J 

1P43 F0RMAT('56mT9P "F'* F<7R PaQE F2RnAR0 SR "B* FSB PAGE BACKWARD '* 

lAlti >') 

CALL aUTPuT (7) 

<^EAC(6*110) I': 

113 ra«MAT(74Al) 

CALL Ffie?ir(to*741 

«gO* T'l r,0 TF 31 

IFt-i'l) *E3. ';•') T9 2S: 

1F(«(1> .EO, • ') lir T9 25l 

IF<^(1) *Ea, 'XM TE 220 

call Z'^TPUT (27*12) 

Gi? T? 16l 

251 IF(l)FlfAL(2) .feO, G? T0 

G? T' 25 

^5- DeFA«'(2)«'P*' 

25 PA.iEtpAGE-l 

1F(P43F .£G, 0) Q*' T? 29 
'ii T? 23 

?9 CALL v^-!TPUT (27,12) 

T" 220 

25 J*J«4»^aL41 

22- CZ'-TInJE 

IF(J ,LK. v,tfCAT) PMi'tT*! 
iF(j ,'':.j:2)p:i'4T»i 
IP(J ,E.). JD'J) Pfl'Tsi 
IMJ .rO,jTf,)P»iMT*4 
IF(j ju) 02!NT«5 

CALL rf-TPgT (27*12) 

T^ 26® 

?1 Ck’-iTIhi’S 

DkrA'(2)a»r* 

PACSspAfjE*! 

IKPAJF ,GT, TLPAr.r^) a? T<1 1.31 
T « 52 <* 

IJ) CA\L ^ >TPLT (27,12) 

PAGEsTLbAGc 
WKITE(7.1054) 

l-.bA Fa9MNT(iX, *cMD 0F i.'.vCi)PReCTEi’ oHpPpiRTiPNS REPBRT 111*,/) 

5t« T** ??.l> 

1< C0'4TT>i:j5 

PAGE*PAGl41 
wHITF( 7,1055) 
l')55 Fe»yAT(*l') 

67 Ti'’ 260 
520 C0>-Tl\i.'g 

CAUL CL5»Sg (7) 

1KK«3 
9fcTU»'< 

EMC 







mm 




■ i . 

18.3 80BB0OTINB ONBIAS 


A flow obart for this subroutine is not svailsble 






18.4 8PBR0PTH1B ALPTAB | 

SUBR0UTINS ALPTAB 

ccccccccccccccccoccccccceccccccceccccccccccccccccccceeccccccccececcccccc 
c ••ALPTAB.rTN** c 

c . . - - f 

cccccccccccceccccccccccccccccccccccccccccccccccccceccceeccececccccccccec 

tNPUGlT INTIBBR (B«1> 

INCLUOP 'SYlCSOOiSJCANSCRHBN.INC* 
byte Tin(B).DPUT 
REAU VARPCT,CATPCT.C0RPCT 

real T0TCT - ORIGI^at , 

real UPCT0.PCT0 OF POOR ® 

real UT0TCT quality 

C0HH0N/JC0H3/CATRCT 

CBRN0N/SC0Hi/ALHCMAXeATti«HAXCAT«i)«VARPeT(MAXCAT) 
X*StC0RPCT(HAXCAT)tT0TCT|UT8TCT«CATtNT(HAXCAn 
DiHENStBN CATPCTCHAXCAT) 

OlNEMSt0R Wt37)«K$n«) 

OruT«‘T» 

LFLA6«n 
tPBiNTsB 
QFLA6>n 
10 CeNTlNuE 
LFLA6*0 
6FLA6«0 

HRlTe<6,50e) dfut 

500 F0RhaT(1X,/, IX. ‘SELECT DISPLAY OEVICBI*/ 

X*$(T»EKR0NIX»(fi)0ULD PRINTER 0R <L)|NE PRINTER («Al.*>*) 
READ(6.510) W 
510 r0RHAT<37A2) 

CALL FR0NT(Ni37) 

IF(w(l),EO,'T «.0R.H(1).EO.* •) CALL aSSI6N<7. *T| I * » 

IF<W<l),EO,*C M CALL ASSlRNC7.'6Pn|*) 

1F<W(1),E0,«L M CALL ASSieN<7. »LPl » ) 
tF(H(l),EQ,‘X «) GD T0 539 
!F<W(l).EO.»T •) G9I T0 504 


♦) LrLA 6 «l 
•) GFLAG«1 


IF<W<1),EO,*0 *i CALL ASSlGNC7.'6Pn|*) 

1F<W(1),E0,«L M CALL ASSIGN!?. »LPl » ) 

|F(H(1).EQ,‘X «) GD T0 539 
IF<W(l),EO,»T •) GR T0 504 
|F(W(1).EQ.'L *) 6R T0 504 
IF(m(1).EQ.<G M G^ T0 504 
|F(4(1).EQ.‘ «) 6R T0 504 

502 WR|TE(6.506) 

504 F0RMAT<1X,»1N»^AlID INPUT ...TRY AQA|N*> 

G0 Tf 10 
504 continue 

IF(w( 1),EO,*L ♦) LrLA6«l 

!F<H!1),EQ,»G •) GFLAG«1 

Kfl«l 

KSl«l 

KF2«6 

KS2«6 

530 CONTINUE 

SIDEPG«KSl/6*l 

fWPG«KFl/6*l 

CALL IDATE(MR.OaY.YR) 

CALL TIME<TI“) 

CALL 0JTRUT< 27.12) 

IFCIPOINT.EQ.D WRITE(7.534) ISEG.mO.OaT, yp.f MPG.SIDEP6.TlM 
|F(IP01NT,EQ,2) WRITE(7.932} ISe6.'‘0.OAY.YRirWPO.TIN 
34 FORMAT!* segment 10 • . I4.14X. »DATEI * « 12. */» . 12. »/• . 

X12.*/*,2X,I2.*-'»I2./32X.*TIM6I*8A1» 

IF!1P0INT,EQ.1) nritE!7«536) ! !ACDaTE! I * J) . !>1.2) . J«1.HAXACCI 
|F!1P0INT,EQ.2) nritE!7.53A) ( !AC0aTE! | i J) . 1p 1.2| . Jal.MAXACO 
536 F0 RMaT!1X,// 1X,*ACOU|SITIwK DATE!S) *,8|3. 

X//flX.'0IAS C<*RRECT|0N alpha TABLE') 

IFdP^lNT.EQ.l) WRITE!?. 540) !CATmAm!lD .L l>XSl.KS2) 
1F!IP0!NT.EQ,2) WRITE!?. 541) 




940 rORHlT (IX */8X«f analyst CLASSlftlR LAtlLLlO CATfOtRV*/ 

X8X«(LASlU60**/8Xi*CATSQtRV*iSX|A<*l(»X*AI)} 

KK«0 

Win 

944 xrt «Kri*KK 

trfXn*GT«Kr8) oo TS S48 
irCNOCATtLTiA} xStiNSCAT 
tr(N«CAT*LT,4) KTSaNOCAT 

tr(tRffNr«si«l)MR|TE(7«940l CATNAHIKfllf (ALHfKft«J>«J«KSt«Ktt) 
XPvCATtNriKri) 

tPCKP.EQiOIOe TO 944 . 

tr(I»OtXT,GO.S) MS|TE(T«949) CATNAh(KP)* CATR eTCKf)* 
XCORPCTtKniVANOcTiKn 

949 P0RHAT(«X«A2«|2Xir4,lil2X,P4il«|QX.r4,i) 

940 P0RNaT( 1X* 3X.A8*OXiO(8Xtr9|On 
00 TR 944 
940 continue 

UPCT0>lOOtO*UT0TCT 

RCT0a|9OiO*T(iTCT 

IP (tPOtNT.E0.2)NR|T£(7«992)URCT».PCTA 
992 F0 RmaT(//2Xi tOTHERMSX.rA.liiSyiro.l/} 

IP (Kr2*6E.N8C«T,ANDt)(S2«6E'.NeCAT)80 TO 942 
URITE(6«990) 

990 P0RMaT( 1X»/,* TyPE (PIiT" PAQE P4Ri^AR0»(S) T0 PAOE StOEMAV ••/ 
X*S(C4) P0R PAQE P0RNARD| E(X)IT >•) 

LPLAGbO 

OPLAOtO 

ISusft 


991 

942 


901 


READ(0*500) w 
900 P0RN4T(3TA2) 

CALL PR0NT(Mi37) 

IPtNm.EO.tB «.0R.W(1}.EO.«X •) CL09E(WNirP7) 

IP(N(l)|EQ|tR •) 6P T0 10 

IP(W(t),EO.*P ’.PR.wai.EO.* •» 6P T0 »70 

IPCMa),EQ«*X •) OR TO 1000 

IP(«ia).EO.'S •) 60 78 940 

NRtTE(0(990) 

990 P0RHATax«/<ix*i I nvalid input ...Tpy aoaik*) 

60 TP 942 
CONTINUE 
CL0SE<UNIT«7) 
tr(|P0tNr,EQ.l)6O T0 OU 
WHITP(4,96l) 

PORMATCS ALPHA TaRLE REP04TT (V)E8/('JP >•) 

READ(0i902> m 


902 rORNATtSTA?) 

call PR8NT(Wi3T) 

IP(W(1) ,60. IV •) 00 T0 933 

•N t) Q0 re ejt 
• X 


) 


t 0 on 


IP(H(1) lEO, 

IP(H(l) .EC, 

NR!TE(0»990) 

00 TP 991 

970 IP((KP2pni6E, mAXCAT) 80 TO 942 
IP(eATNAN(KP?«l)iEO.« • I 60 TP 94? 
KPla KP1«0 
KP2a KP2A0 

fP(KP2.OE(N0eAT*O) 80 TO 904 
IP(KP2,OT.N0CAT) KP2>N0CAT 
60 TO 930 
900 N8lPK8l*0 
K829K82^0 

tP(K82.6E,N0CAT*O| 60 TO 904 
IF(K$2.6T.N0 CaT) KS2PN0CAT 
00 TO 430 
1000 CONTINUE 




541 F0ftM4T(lX»/ 2 Xi'C*TEG?HV*,5X»'UNC’R»>6cT6D’i5X,»C0»RFCT6O»,5Xi 

X»68T|M4T60'./15Xi*‘‘ERC6NTAB6'»6Xi»P6I»CENTASBS4Xi»VAP|4NC6»#/) 

536 r0RHATaX,//lX*«*COUlSlTte^< OATE(S) M4!3« 

X//8X,»C0RR6CT6O PR^P0RTIP^S AND VAfilANfikSM 
532 F0RMATC lK,*seG«fcNT in M4i 20X. TATb* , {2, •/• , 12, «/• « 
Xt2**/«.2X*t2«/36X,*TthESdAl) 

533 1P«I‘T»1 

6P T0 10 
611 tXvi3 

539 C0MTINUE 

return 
Eni;* 


ORIGINAL PAGE IS 
OF POOR QUAury 




18.4 SOBROUTIMB ALPTAB 


A flow ehajrt for this subroutlno it not tvailablo 


































































UPMTE DEFAULT - B 










19. CLUSTER REPORTS CLURPT 


/TP|9L®CKS/M*’ 
PP0GRaM cluppt 


14L0£llt-- 319PU6-77 


PA06 1 




implicit InTFGI*» (a-?) 


BYTE TlM{B),INPUt<74),lWPU2<7^)»O0PT,ROEP»HSLOn»ME*T<6) 


iMCL'JQt •SVIC390.31CAM?C''MCN.I»«C' 
include *SYir30a,3lCA.MSPAR«M,IvC* 

PAPAMETfP MAYCAT«6n»rAKSUes6C»**A)fCHN«4,NPlX«l96#NLIN«ll7|MAXFLn»50 
l.hAxV«ll.\D0TS*299,DLb'<IP«laiDSSKIP»lO,MA)(ACn«6»MAXACC*4» 

2 ■^3PVC86*Ni’DTwn*10 , , 


cC JIVaUE'^CE (C1,aCPATc)| <C 2|1SFG),(C3,PFLA6|* (C4|TX1>» (C5,OlSKIO) 
INTSCCO Ci(469),C2(2S6).C3(71),C4(340),C5(624) 


I^'TS AC''ATE,3UECAT,SU 'P -P»CaTKKT»CATTH 
BYT5 C"»'VEC,N«rHAN‘.> i>'St*<?,u TCATiPerCLU 

Cf •^!/C‘•Ml/ACnAT6(^• <AX*CC)»CH'-VfeCCMAXCHN»MAXACC),NSCHAN,N0SUB* 
iSD^CATC-Axcuai.SUWo^PCv.Ays- BlfCATXNTiMAXCATIiCATTHCf'AXCATl.NPOPt 
? 'J 0 :j 0 . V. T » D S' ^ T C A T ( N - i' T S ) » r K) T C L U ( Ml e T S I 


IMTEGFB ACATES,SUima 2 , A''ALST»FLri)AY,D 3 TPAV,PDATPl»T 0 ATEl 
l\TEOa‘^ PO»TF2*TOATfc2,PDATF3»TnAT6S,CATNAM.DlSKlO*PAND0M»GPIO 
-YTt HElP LG* ' I? ACI, Sit ILf»R* ScNEL * 'ST aRT, SiTYPFl, ALP* AlP® 

PYTc 9 ClCT,PCTCTP,''A»',VAC 2 ,PUA-fcL»TYPE 

>/ci'W?/ISEG.C=LFLG|»:?>ACa» ADATFSC2iMAXACD) *S®1L6R<MAXAC0) » 
ISUNELI 'AXACD)*BgNA«(^'AXACO)| IrcATE( 2 )» ANAlST< 5 )|FLDDAY< 2 )» 
20 ^ 5 TDAv<^),^STABT,,^lTYP 61 »P 04 TEJ<^)»TDAT 61 ( 2 ),P 0 ATP 2 < 2 )*TDATE 2 < 2 ). 
3 POATE 3 ( 2 >,TDATE 3 ( 2 )*'^'?'CAT,CaTN 4 V(kaXCAT),ALP(MAXCAT)»ALP 0 » 

4 PCTCT(HAVCAT)»PCTCT2,VaF(MAXCAT),VARP 


INTEGeB EFLA51 ,EFLaC?,CFL AG3iEFLAG4,6FLA95»UPLA61*uFl.A62»UrLAGS. 
H'FLA" A 

INTEGlfF PFLAG,PS*<y'T 

CUMMf'. /c0M3/PFLAG»'^St‘ “VTi6FL*Gl»Ef LAG2»EFLA03»PrLA64iEFLAG5»UFLAGl 
IiUFlag?. urLAG3»UFLAGA|r.6A’LAU(>iAXS09) 


iNTgGgtJ Txj ,TYl,TX?,TY2,ACriSP.G.B.DTWINb,O0»ARY#6MlN,GMAX,FUL 
iNTcC??'^ Sp^IND.CLA jLPiCLUWmD 

j/C0MA/TXl,TYl ,TX2 *TV'j, 1X1* m* IX2,|Y2» ACniSPC2)» II1(4),G(4), 
IM 1).:JT.,I^^(5,^^5nT^D>*SP-■I iO<5,N0SP*<O) , |MW!nP<4) iNUROST# 

2DJTA'n( i02TS)»GM!N,G*'AV,FUL(2#7>*CLAWMri(e)#CLUMN0l8J 
CkT-'M ^/C^9/PISKJC.RA•J'j/•^ ( !0'*Ts)xJiRl3(N0lUS),0l.A86L(NORTS), 

ltYPe<\'VTS)»PECLBC 




WH IR 


wmM iv^LU* vot«04 sUAua«7T ■ ' pah a 

akttAMTrTN /TRiBLlCK i/Wa 

c 



0025 OPEN^iS lT?ri MAMfi* • C500 . UCLUOTATIilME! j TYPE* • OLD • • 

1 Asegss* ( n I PECT * • MAXREC«HAXCAT* PEC0POS t tB*3« ) 

c _ 

c 

c 

0026 n»i 

0027 CAU ELaPEE(II). . 

0028 to CAU 8DTPUT (27*12) 

0029 CALL 11>ATE(MP«DAV*VR) 

0050 EAtLX*.HE.I.TJH) . 

c 

c 

c 

cost write (6i1O0) H0.8AV«YR(TIM 

0032 190 FORwIt (iH0*50X«*0ATEI •»I2»2( */** !2)i 

1 !^0jL?l?(’?.*li/51X,»TJLHfl •.9Al,/,?6x,12<»-»>) 

C 

0033 IP (NjiSbR .EO. 0) QP T0 9000 
C 

0034 29 write (6|110t RDFF 

0930 110 rePMAt (1 h0*20X**C luster reports** 

1 //.SXj* <1> RRIEF cluster*, 

2 7,8x,» (?) CORTfR MEAf74T*ISl02a» OBVtAf I-PK* , 

3 /,9X** (3) INTERCLUSTER DISTaACE** 

4 /,9k, t (4) ClOSTER nearest N6I8HO0R*, 

5 /,5X,' (9) ALL 0P THE Ap^vE*, 

7 //i*t WHfCH W THi AO0VE EPTfONS DE Y0U WISH **Ai** > 

C_ 

0036 Call «utput (7) 

0037 READ (0^1 200) INPul 

0030 200 format (74A1)_ 

0039 tkLi~f^}iy nNPUt*74) 

0040 IF (INIPUK I) , EO. *X«) 10 TO 9696 

o 641 ■ ' IF (iNPuiUr.eo. *■&■*) io'tp 869* 

0042 IF (ivPUKl) jEQ*. * •) INPUKI) ■ RDBF 

c ■ 

0043 H0^DO • 11^1(1) 

0044 iP • 6 

0fii5. CA y .^lNTF F J I P*jNfUili74tRN) 

0046 IF ,LT, 1 ,PR, 0N ,CT, 6) Oo TO 20 

0047 RCEF ■ HOLDD 




^ 






€ 


rORTRAM 1 V«PlU8 

CkOVTiPTN 

C 

C 

0048 SO 

0049 8P0 


VOO-04 

/TRiBl0CKS/WR 


141 ue 1 16 3UAU6«77 


PAGE S 


C 


i: 


0090 

0091 

0092 

0093 

0094 


007d 

0079 

00i*n 

OOai 

004? 

00P3 

00P4 

0909 


0086 

0087 

09P9 

0089 


C090 


write (8i300) D6PT 

FORwat (1H0i» CH*P86 Oil 0P TM0 f0U0MtNG OlfGUY 0I»T|ON8|4, 
1 //.** (8)0UU WRINT6R* (L>I»*E PRINTER# (T)ERN|NA|. »A1#» >M 


002 

D03 • 0 

CAUL ?UTPUt<7> 
read (OiZoo) i^tpue 
CALL FR0^'T flNPU2»74> 


0595 


IF. #so. 

*)(•> 

30 T0 f696 

0096 


IF (IvjPUPd) ,60. 

*3M 

t? 20 

0097 


IF (I,mPU2(1) .P6. 

• •) 

IMPLP(I) « D8PT 

0098 

390 

IF (IvPb 2 (l) ,Ea. 

•L') 

G0 Tn 32 

0099 


IF (t^jPU2d) •6b. 


•30 Tp 34 

00«i> 


IF (tMPU2(l) ,'4fe. 

•T») 

'\l T-* 30 

00*1 


?*)1 * 6 



0C62 


o2 T ’ 36 



0063 

S2 

DiOt s 8 



0064 


li? T'^ 36 



0069 

34 

C 

cai s 3 



03*6 

t 

36 

':';r‘»T c ivpu2(i) 



0C97 


IF (In®U 2(3) .eo. 

•L') 

"02 * 8 

0060 


If (f!vPj?(9) ,(=0. 

•L*) 

i73 z 8 

0069 


If (I 4PU2<3) ,eg. 

»3’) 

r.42 ■ 3 

0070 


If (IvOu?(9) ,pg. 

*GM 

-'83 » 1 

0371 


IF (I.PU2(3) ,P3. 

•T’l 

•32 4 e 

0072 


IF (r,.Pu?c') ,hu. 

•T') 

'33 a 6 

0073 

< 4 # 

4n 

<c5 F'. fi ■ 0 



0074 


IF iWnEF ,EU, *1’> 

63 

T’ lOol 

0079 


IF (fDSF ,P0, »2M 

G9 

T'" 10p2 

0079 


IF C<L’f:F ,ea, »8«) 

(5P 

T» 10(*3 

0077 


IF (4;:6F ,Ew, M») 

G'* 

T* 1044 




Op 


'^fePFLO • 1 


noi 

100? 

iDO? 

1004 

* 

* 

* 

sno'’ 


‘ALL d«rcLU 

ir {REPPLfi .^ 0 . P) -O/ T-> 
CAUL ‘tfcNSTn fi»’’l,t.J'2,t?3) 
IF {-<£®rni ,FQ, I') oa T’ 
CALL PCLDR (071, rr?, 0*3) 


IF 

n 


c 

c 


r (REPFLG .^ 3 . c/ T 
ALL CLUSMM (O'*!, L * 2 , 0 * 3 ) 


900J 

900b 

5bOD 


r 

r. 


call IWTFF (IP,|*-PU1.74,“!N) 

IF ,LT, 1 ,^fC, 4 '. , 0 T, 9 ) GP T 0 9696 

4 riPF ■ NF.XT( 9 . 1 ) 

152 T ■ 40 


9*9* CALL OUTPUT (27,1?) 


a?/ 




ranTRAN iv-PLUS vot«04 si«auo«77 moi 4 

clurpt.ftn /TftieLacKS/wa ; 

tt «8 

— HAU-BU ^S BfJU 

MRITE (6,900) 

9C0_ (Z^Vt (RJ6STAIT .PR 6.tillT >•>.. 

C 

CALL.gVTPUT (71 ; 

read (6,200) INPUi 
CALL r«aHT (1NPU1,74) 

IP (I>»l^ui(t) lEQ'. «R') 80 TP to 
If (InPUKD ,ME, 'X') 60 T0 9696 
80 T2i 9008 


C 

C 


0101 

900 n 

><iRlTE ( 6 , 9100 ) tSEC 

0102 

9100 

C 

P 0 RMAT (IHO,* M 0 cluster. DAT « AVVAtLABLE P 9 R SEGMENT SI 6 ) 

lioT 



80 A 6 

C 

c 

c 

CL 0 SE(UNlTa 7 ,DtSP 0 SEa'SAVE*) 

01 C 4 

include *t 3 bO, 33 eAMSAVE,I'Mrt 

010 ? 

. 

NjiaiJZ UotPB AL , THPl 1 ♦ 1 P 0 RH 9 iyNr. 0 RBATTEO» , . 



1 rvPEs'UNKN 0 MN',ERR« 9999 > 

0106 

» 

N»ITE( 1 ).C 1 

0107 

• 

NRlTg(l)C 2 

0108 

• 

. WRIT 1 U)C 3 

0109 

• 

4 RlTfcCl)C 4 

OllQ 

• 

WR 1 T 6 ( 1 )C 6 

bin 

• 

CLOSElUNITn) 

0112 

• 

80 Tp 9991 

0113 

# 9999 

TYPE 9990 

0114 

• 99 «r 

PPAMaTIIX, ' 0 PRN PaILUBE 0 V C>)OO, 136 L 0 BAL*TMP««N 0 RESTART*) 

0115 

• 9991 

continue 

0116 

5 -- 

C 

C 

C 

call SfcTBPtSO) 


. C 

0117 


I 0091 

0092 

0093 

: 0094 
6 

-fiflis 

0096 

0097 
0096 

0099 

0100 


^ 7 % 
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8BT 
AND TBZilD 










t 









HfNSTO 

mi 


AN 1VNLU8 Wfl»» a4 

.FTN /T«ieL*CK8/Na 


8JUIR<!iuTtN8 H8N3Tn (De.ii8P8t 




.. ^ ... . ■ . -■ -:• ., ■ •<■■ . 

.' .’ ^ ■- ■' '/. ■ •.•'<■ . ■ ,V V ■ 

■• rf *>7 £-V‘tx4'U 

9«.AUttaif9 - ± 


t/Wi- 

■ 't^C\ 


0002 

0003 


iHPUfilT INT606N (C-Y» 

iHPLtCft INT60e0?iA» 


?V>6 TtH<8UPUff»C144|, lvpUT«74) 


0013 

0014 

0015 

0016 
0017 


InClUDC *8VtC30fl*S3CAMSC’l«l0N,tNC* 

INCLUDE *8ytC300t33CAHSpAN^H.l»'U* 

PAPAMf^T^A VAXCAT«6'>*MAXS’JU86n(HAyCMN«4tNPlV«l96*NLIN*117*HAXrLO«90 
li**4XV«U,Nn3T$«2Ov,tLSKIP«lO,USbK|P»l0,HAXACQ*O*NAXACC«4, 
2 NOSPI»os6«N">DTMO«1C 

EUUIVaLE^CP <CliACPATE)i(C?f ISFQ}|(C3»Pri.A0>«CC4tTXl>«(C9»0|8K10) 
iNTEGgP C1(469),C2(296)*C3(71 )»C4{340),eS(62«) 

INTE06S ACPATfe,SUB<:AT,SU?P. P|CaTKM#CATTM 
PVT6 C^:^!V6C^N6CHAN.;c«SUBlU.•TCAT»0^TCUU 

C3H»l^w/ri/>Hl/AC0ATe(2|HAXACr)|Ci>vVEC(MAXCHN«HAXACe)«N0CHAN,N08U9« 
lSUBCAT{'<AXSU«)iSnPP9P<»‘AXS >a)»CATKNT<MAXCAT)*CATTHCHAXCAT)#NODP» 
2N4OU.\-?TH.DaTCAT{N»'0TS)inaTCLf{^P0TS) 

1NTE?E^ AOATP$*SUN«E|AMAL3T,rLnOAV«OPTIlAV*PDATElimTEl 
INTEUF.*^ P0ATE2*TOATePfPDATF3*TnATE3|eATNAN*Ot8K|0«pANDOM*GP|0 
BYTE L'f!/LS»wpAqo,SJ»lLP«iSi:Ni*t,^8TART»NTVPEl*ALP»ALPO 
byte oCTCT,PCTCT",VA»,VA10,OLAPfcl.»TYPS 

C3M•1P^/r.aM9/!SEG•b•^L.^tPf’*0^CO»«UATES(^«HAXACO)•S0IL6O(PAXAeO)• 
1$U'IEI(^AXA00 )iSUVA 7(^AXACD), lri!:iATE(2)*ANALST(9)irLD0AY(2)» 
2O0TQAv(2),MSTAPT,;.Typi:t|PDATEl(2)»TDATElC2)*»DATE2(2)irOATE2(2)« 
3PBATE3{2>iTDATe3U)r'«5CAT|CATN4«<yAXCAT|iALPtMAXCAT)»Al,P0» 

4 PCTCT(*'AyCAT)|PCTCT3,VAR(MAXCAT).VAW 

INTEGEP irLAQl(EPLAG?«PPUAf',3»Erl.A64*ErLAQ9«UPtAQl«uFtA62iUPLA6St 
1UFLA84 

INTEPE'^ PrLA8»nSKMv>T 

COMM<*v/{;OM1/Pr^AOfrSKMMr»KrLAGi«EFLA62|BFLAQ3*EFLAQ4iBPLA69iUPLAQl 
l*ijrLAj2,uKA8S*UPLAa4f NE»M.AS(MAXSbB) 

InTEGeP Txi,TYl|TX9|Ty2|AC’'lSP,d,8(OrMtNO(O0TAPY*OM|N,OHAX«PUt 
|NTEQp>« SPMlND«CI,Ak-<rfC|.lJ<t' 0 

C0HH3\/C^M4/TXl,rYf |TX2«rY9,lXi»IYliIX2|tY2*Ae0tSP(2)*lU(4),0(4)» 
l3UJAi3.TxlNDJ5iN0r‘TvD)i5P!?'lr'O<9*''08P«P)il9itltlW9ljNUHDOTi . 
2O0TAey(MP0TS)»eNlN.(>^AX|PUL(?»7)iCLAWND(e)*eLUWNO(8) 
C0 Mm;)N/C.«*M5/P1$K1O.P«mP 0M( ^07T4) ,0910(80078) |0LA0EL(A*D0T8) I 
lTYPE(N.Pt!T8),P6CLPC 


M/ 






riiimN iv»hus vono# 'isiMiss' 

Htl^aTD.rTM /TBH»LgCKS/H^ 

c 

■' "• ■ c : .. ., 

OOS9 OtHEi^SteM 0129(3) I AC0N(4) 


29*AU‘0*77 





0027 

0020 

0029 

0039 


0091 

0032 

0093 

0034 

0039 

0090 

0037 

0030 

0039 

0340 

0Q41 


C 


C 


C 


C 


equivalence 

EOVlVAkENCE 

EQUtVAlEVCS 


(8UFfSfllt8iiil)j( BUFFO(g )^jSl iJ . 
(0UPFR(9)|SNt2)i(BUFFRaS)i8S12) 
(BUFFR(l7}tBMl3)»(BbFFR(21)i9$lS) 
(BUFFR(25)iBMl4),(SbFFR(29).a814) 


EQU I V aLENCE ( 8UFFR ( 37 ) « B v21 ) « ( RbFFR ( 41 ) , RS21 ) 
EQUIVAL ENCE .(B'JtEB149) ,8*-.2?) i .tOLFFR(49),.i522) 
equivalence ( oUFFR ( 53 ) i B^23 ) * < OLFFR ( 57) * BS23) 
EQUIVALENCE (BUFPR(61)t8‘*24},(0bFFR(69)«9S24) 


equivalence (aUFFR(73).B.^31)*(BUFFR(77)«BS31) 
equivalence (BUFrR(Bl)*a-^32)tieLFFR(BS)«B832) 

. _£8UJVaLENCE (aUE£fii59}.BM3^)«(BUrF9(99l<BS33} 
equivalence ( BUFFR ( 97 ) , 8>34 ) * ( OUFFR ( 101) (BSSA) 

equivalence (8UFFR(lC9)iRM41)»(6UFPR(li3)«RS41) 
SQUIVaLE iCE (BUFPR(ll7)fPN42)i(BUPrR(12l)*B842) 
equivalence (8UFFR(l25)|BM43)*(euFPR(179)«R84S) 
IflyiVAlfB-NCF (BUFFR(l33)r'^M44)i(BUFFR(137)*B844) 


BAOf I 



0042 


0049 

CJ44 

0045 


0046 

0047 
0040 

0049 

0050 


0051 

0092 

0993 


0094 

9095 

0096 

0057 

005B 


C 

c 

c 


c 

c 


IQO 

110 

C 

c 

c 

c 



lion 

1 

200 

C 


data aCQn/1«2,3*4/ 


0i23U) # 501 
0129(2) ■ 002 
0123(3) ■ 003 


na 1 10 I «ii 3 

Tr ((W(I)‘.tO, 0) 44|fE (OilOO) 
IT (0l?3(I) .EO, 3) write (3*100) 
PCiRHAT CiHl) 

continue 


IF (Tal .EQi 6 .''R. 002 .ED. 6 .OR. 003 .EQi 6) CALL OUTPUT (27,12) 

CALL lOA^E (M0 ,caY,VR) 

CALL tiNE (TIH) 


DO 2 00 I «1*3 
IF (Oi?3(l) .EQ 


0 ) QM re 200 


W RIT E (01?S(I},1100) M0.tiAV.vR, TIM 
FPmat (IHO.BOV.'DATEi M2.2(t/M2)* 
Za^iilZJLli ! ) * _* . « A1 , / , 94JJi 

«• • TTrie 


CONTl^' 




) 



5s 


1 


r0RTKAit 

JJlNtTO,fTll 

006Q 

90A1 

0062 1209 

0063 400 

P . .. 

C 

0064 

0065 

0066 
0067 

0060 iSOC 

0069 mo 

0C70 600 

c 

c 

0071 

0072 

0073 

0074 

P075 171^ 

0076 * 

0077 160« 

6070 1613 

6079 7JC 




/tfij8LPCJlfi/¥«». . ^ - : 

00 400 I«l«3 . ;v:/ /, v ^ 

ir (Di23lt) «fiO« C) «8 Ti iw 
«01T6 C0l28Cn, 12001 . 

P00MJ (1K0»16X**CLUST2R M2A«/STaN 0AR0 O2VtATI0N RlPBRT*) 

C0>IT!>IUI * ' 


00 660 l»li3 

Tr (0l23tl) *20* 0) 07 TO 660 

MRtTE (0l2Sf n«1500) |86<? 

t^RtTF (0l23(l)*m0) ((AC0AT2U«K)t«J«t*2)*Kal«MAXACC) 
?2»ttAT (1M0#» SECHENl-ll} »a6> — . 

F0RHAT ClHOi* ACrL'tStTle^ OATOfS) (*(4lI2**/M3*2X)n 
C0^.'T!^U6 


00 760 tal«3 

IF (Ol23U) .i9t 0» 3^ T0 70« 

IF (Di23(t) .EQ, a) 39 T0 1600 
MRirS (0l23(n.l716) (AClN(tJ)<ljn«MAXACe) 
FAM^'AT (lH0,lX,Cai57,’AC8 Mini 
T ‘ 700 

MRITS (Dl23(ntl616) (ACOMI j) • | jai,MAXACC) 
F0»f1AT <lH6,2X,<4(llX»t/kc8 Ml))) 

G0f*Tl\’UH 


0060 

0061 

0062 

006? 

0064 

0065 

006ft 

00*7 

0Q66 

0069 

009C 

0091 

0092 
00«3 

0094 

0095 

0096 
00«7 
0095 
0099 
OlOC 


36 9^0 Iai«3 

IF <Dl23m .EH. C) 86 T0 900 
IF (*)l23(I) ,eo, 6) 80 T0 850 
IF ('^XAnc «ra. i) writc (0i23(i)«1801) 

IF C-AXACt .EO; ?) WRITE (Dl23(t)il402) 

IF (VaXaCC tSQ* wAITr (D}23(I).1803) 

IF (^A^ACC iSO. 4) VRUu* fOl23U)«1804) 
F0RfAT I* cluster *,aX|*h«;A>' SOX, *87 0EV») 

F0Fh4T c» CL‘/STtw»,2(6X,»MBAr**i8X|'ST DEV •)) 

F^em.M C* CLUSTfc9».3(6X,*MEAv*,8X.*ST OBV ♦)) 

FB6m.*T {* CI.USTfe''».4(6T,*6EAH*,3Xi»8T OBV •)) 

as T' 900 

650 IF (*^aXacC (SO* 1} wRITr (0l23( I )|1901) 

IF C*’aXACC .50, ?) t-R|T(. (Di23n),1902) 

IF C’^aXACC iPa, ?) ^R|Tt; (&123(!)|1903) 

IF r'AXACC ,FO; 4) WRITE (Dl23( I ) »1904) 

1901 F09kAT I/,* CU"STf.» '*6»N ?! OBV*) 

19C9 F0RMAT C/|* CLUSTfeH*,2l?V,*MFAM ST OBV*)) 

joOS F0 RmAT {/,' CLUSTER', 3^3^<|♦^:FAN ST OBV*)) 

1004 F0Pf AT I/,* CLUSTER*, 4(3v,*HFAW 
9ftQ_ C0f'Tl\U6 


ST DEV*)) 


C0UNTR 8 3 


P0.ZPOO l»t|N08U9 .. . . 

READ (>M) euFFR 

IF. cnol ,NE, 6 ,ANn, 062 ,Kife. 6 ’.A'lD, 003 ;t«B, 6) 


a?3 


a • ! . 

rwimn ivp^us v^i»04 

H1H8TD.FTM miHJ 


12188198 a9«lUtt*77 


MH 4 


OjfT 

! 0106 
0107 
1 0100 
« 0100 
\msL 
! 0111 
0U2 

0113 

0114 

Oils 


Oils 

0119 
0180 
0181 . 
0188 

0183 

0184 

0120 
0186 

-0127 

0186 

0189 

0130 

0131 

0138 
0133 
0154 

0139 

0136 

0137 
■ 0188 

0139 

0140 

0141 

0142 

'TOT 

0144 

0149 


If (CeUNTR *07. S) 00 T8 3000 

_ 

Of TOWOO 

80M— JWli.J6xl.0MJ .1 

3000 riOHAT (//*f TO CONTINUE OnTeR A <*ei« >«) 

CALL OUTPUT <71 

READ (^1 3100 I INPUT 

31M MRJlMJliAli—. . - 

CAUL riONT (INPUT *74 > 

- .60, •X») fll.T0 9199 

IF (IN^(I) .NE. * ') 00 TO 3000 

COUmTP 1 0 

CALL OUTPUT (87.18) 


00 6000 jal.3 

IF (Oipill .xEO.. C) QO TO 6090 
IF CDll3(J) .EQ. 6 ) 08 TO SOOO 

i£-(WAjUfifi- .ea;. ti 60 to iqiq- 

IF (*4*XACC tSa. 8) 60 TO 408U 

IF (MA.XJCfi .EQ, 3) 60 i4 4jso . ^ 

4RITE (D183(J).41U0) I.Bm*PSU*BM8i.B881.BN31.R88l.8H4i|iS4t 
write (D|28(J).4ilO) BP1P»0 Si8,BH88.6888»BhS8«BS32*Bm48.B848 
write (Dl83(J).4iiO) BM13,68l3t6H8S.B883*BH33.B8SS*BM4S.eS43 
aailS.Ji.123 ( J I • 4110 1- aJ114iB8l5.an2.94 9884. bum. 0934 . BM44 , B844 

FBRmAT (1H0.1X»I3*8X»(4(9X«F6«8.SX.F6,2))) 

FJQJ.AT (7X.(4(9X,F6,8,3X.F6«8M) 

60 T!9 6000 

"■wRITfc (D18S(J),4100) I.Bm.PSll 
wRt TP i0j83(J)x4U0> BMlp^eSl* 

WRIT6*“C0l2S(J).4ilC) Bn3»6S)3 
write (048S(J).4ilft) BMl4,nSi4 

80 TO 6606 

write (Oi8S(J).4iOO) I.8yiliP8tl.BH8i.888l 
write (Dl23(J).4ilO) BM17,PSi2.BM88tBS22 

”^rtmfi29(jT;4nft) iPiT,-Bm.BMn7f92i 

write (D123(J)«4110) BW14.BSi4«Bn84«BS24 

60 6000 

write (Dr83(J)*4itO) l«BMli»PSli.Bn81.B88l«BHSi«B93l 
write (Dl8S(J).4ilO) aMl?iRSi2.BH22,B888iBn38.BS98 
' wRtTfc (Dl2S(J)".4ii61 pn^pSi3.Bn8I7Bs83.6Hn«BS33 
WRITE (D12S(J)«4110) E»14|RS14.BN24«B884(6M34.BSS4 

62 T7 6030 


0146 

■0149 

0190 

0191 
01?2 

0193 

0194 


IF (W.XaCC .EU, V) 00 Ta 9010 

'ir ( •> A ml i b§; 'arnirTr-BOfr - — 

_ IF (WaXacC lEO. 3) 60 TO 9030 

write (0189(1) i9i00) I*Bwii«PSll,Bn8i.B88i.BM31.RBSi.BH4i|B84i 
WRITE (012S(J)«9110) BMl8.P8i8|BM82.BS28.BnS8«BfS2.BH48(B$42 

write (Oi29('J)*0tlO) BMi3»B8i3(BM83tB889(BMSSt|i33*6N4S|B843 

. ■afit TP JJ^ ? 3i.tU9tyX_Bwl4i38^B M 244M|i4 9 Ml4.B|84^ 

FBRpAT (/»fX,l3.2X.(4l8jr.F6.8iIxtT6.8))) 
format (7Xi(4(8X.F6.8,1X.F6i8))) 




^ /V. 


US Vlt«S4 


ttllsiss |Sf!AUS«yf 


MSI S 


w* 



Iis4 

• 901S 

uaire coi23(j)3too) 

91S7 


.49176 (012S(J).»110) 

0199 


WRiri C0l2SCj)«5ilfl) 

0199 


—2fiJJ£. 18123 ( Jl* 9112 . 

0169 

r 

Q0 fiA 4900 

0141 

$020 

MR1T6 (0123(3) .9100) 

0162 


WRITE (D123U)*$110) 

0143 


WRITE (D12S(J).911P) 

.9164 


-Jl&Ul JR123 ( 3l*SU0 ) 

JP9 

c 

$03ft 

90 T0 6000 

P 

gpsa 

W9 

^RITF (0123(3). $100) 
WRITE (0123(3) .$110) 
WRITE (0123(3) .$110) 



. . ml 76-18123 ( 3i *9110 ) ^ 

0179 

■ ftitOO 

/7 '■ ■ ■ 

C0>TIwUE 

) 

0171 

7700 

C 

•« 

CjlKTlxjUfc 

cm 

V* 

c. 

00 900 O 1 «i,3 

0173 


ir (Dl23(t) .£9, 0) < 

0174 


IF (3l23(l) .eO. 6) 

0173 


write (0123(1). 8!?0C) 

0176 

609? 

F0R.1AT (IhO.* *) 

0177 

9030 

C 

*• 

CONTINUE 

0176 

w 

c 

IF rVl .WF, 6 .«AC. 1 

0179 

9l9C 

WRlT»i (6.9700) 

010b 

9700 

format (//.'7 FI,T£P "1 

0101 


CAU /5UTPUT (7) 

0102 


WE At' (4,3100) IH»UT 

OlOJ 


CAlt F«0wT (IvPUT,74) 

01R4 

C 

IF cInPUT(I) ,vt. » • 

01«9 

C 

9099 

RgTljWW 

0106 


6n4 


UKitiSii? 

sns«ssis 


Sm1?«9SiS. 9M22,BS22 
B'^lS«9St3«eM23iaS93 
8114*2914 «BM2«4JS24 


9rl2«Q8l8*8M22*8S22 

uns* oSiSi Bnas* asss 

9:114*9S14* 9824*8824 


•BH31*8S8i 

•9N32*aS32 

«8N38*98S3 

•9834*2894 


6^> re 

Si? n 9fi09 


,NE, 4) 26TURN 


X9j 


III III im-i lirfclirttf 



.Tijw 


^ ♦ 


1».I 




gOBHOOTniB MBM8TD ! 


c 


001 002 003 




SET OUTPUT 
DEVICE AERAT 
TO PASSED 
PARAMETERS 



DETEBMINE OUT- 
PUT DBVICE(S) 
AND CLEAR FOR 
ACTION 






PASMSmS FOR PM8XM0 
OOTPOT OlVXCB NtniBBia 



lOATB 


OBTAIN DATS 



TIME 


OBTAIN TIME 




/ /\ 

/ / 




DETEBMINE OUT- 
PUT DEVICE (8) 
AND OUTPUT 
DATE AND TINE 






GOULD 


Page 1 of 6 


















4 Of € 


















*19 A 


• B wopm naM ] 


MftiTiAM tw»LUt wflgiifl4 Itimil UtMamatl PA9t^. 

meiioiTFTA 

om .luMiuTim iMCLDs foaupjaipgo... 

. - l . 

C ■ 

C : . 

c 

c 

c 

C ■ ^ 

0002 implicit IWTEGEB (C-vI 

0003 implicit INTE06P (A) 

C 

C 


0004 

0009 

0006 

0007 


0006 

0009 

OOld 

ocu 

0012 


OOli 

0014 

0019 

0016 

0017 


obie 

0019 

0020 


0021 

0022 

0029 


0024 


— fi ..... ...... 

®VT6 T1MC8J»|NPUT(74> 

C 

lNCLUDi~*8VIC9OO.39CAHSCtlM0N. iNC* 

INCLVOE !»m300i33CAMSPA«AM*|vC» 

parameter MAXCAT*6CiMAXStiy«60,MAxCHNa4«NPt««196«*iLIN*ll7|MAXrLDB90 
- lAflAXYilliMgT8l2flL.flLSKlP»lO«DBiKlP®l0tH6X6CD»6«MAxACCMi 
2N0RPUDS6* N«DTkiDaiO 

EQiUVaLEMCE CCl<6CliATE)i(Cs«!8E6)*(C3«PPL60)«(C4«TU)«<C9|DISKIDI 
INTEOE® Cl(4A9)iC2(296)iC9(71).C4(14i),C9(629| 

*• 

INTEOER AC0ATE,SUBCATiSU‘»P*PiCaTXN7iCATTH 
RYTB cMjiVfCjMfiCbAii^NPEUO^ttjJCATfOfTCLU . . 

C0HMP^l/C0Kl/ACDATE(^«M«XACC)|CM^VEC(HAXCMA((MAXACC}•N0CHARtMetUB• 

lSURCAI(HAX8UR)iSUPP0P(H6XEMB)*CA7KNT(MAXeAT)|CATTH(MXCAT)«NPDP« 

2Nfc3u»N«TH»P»TCAT{Nr7TS)ii50TCLLC^DBT8> 

C* 

iNTEOEt' «DATES,8UNA2.A<uAl8T«PLODAt.D0TOAV*POATEl«TDATEl 
• iNTffiER PDAT62«nA^E2i PpATP 3iTrATE3«CATRAM«C!8KIP«R6»lDgP»0Rin 
byte PFlPlO# M0ACB, «0 ! LORTT -NEL . I^STaRT, NYYPP l, ALP* ALPO 
BYTE prTCT,PCTCTM#vAR*WAP0.OLAP6L,TY»E 

C0HM7)w/C0M2/|8PQfLPLPLO|K0ACi3*AOATP8(2»MAXACP)*8BlLOP|MAXAeO}* 

l8Ut4EU**AMACD)*SV<VA7(»«AXArD)|tHnATE(2iiANAL8T(9)iPL0D*7C2l* 

2O0TOAV(2)*NSTART«KrYP61«PCATElc2).rDATEll8l*PDATE8C8l*TOATE2C2l* 

3BOAJP&(2>x!ilTUiD«'ijCA!iOTKAH(t*AXCAT)|ALP(M4XeATliALf*» 

4 PCTCTt*»A«CAT),PCTCTe,VAR(MAXCATj#VARP 

Cp 

ImTSOER 0rLAQl*BPLA08iErLAOS.EPLA64fEFLA89*UPLAai«urUO2iUPLA09* 

1JPLA04 

iNTfiOEP PFLAOirBKM^T 

e0HWPK /eBM3/PFLA9« n8MH'>!T.ErLA6i»8FLAg2«EFLAfl3*8FLAB4iiFLA89»UFLAOl 

lfUFL462(UFLAQ^«UFLA64,^E><LA0(MAXSL0} 

C* 

INTEOER TXlfTYi.TX7*YY2,ACM8P,0*B.D7WIRD«D|TARV*BM|M*8HAX*rUL 
IRTS6E9 SPWINOjCLA'^NOiCW'^R’JC . 

C0^M2^/C0M4/TXl|TYitTX2*TY2*tXt*tYlitX2*tV2*ACOtSPC8MllC4)*B(4l« 

IPII) 

2n0TAevCv6fT81«QNlR.6MAX|FUL(2*7)*eL*MNDm«eLUMNDlB| 

C0*«M0 N /C0M9^ 1 8J{ I OLiR A 4D0M ( » o (• T 8 ) * OR 1 0 ( ND0T8 1 1 DLAOf I f MO0T8 ) « 
lTVPS(ND0TS)fRECLOC 


r0RTRAN 1 V*PlUS V02*04 i2t5Sll7 29»AUG«7> 

.iNCiOi.Fiii . . _ 

c 

c 

0029 C0Mh?M/LFR1/«SaVF1.BSAVE? 

C 

c 

9020 OI«#6’^SI0N Plg3( 3)<AC QN ( 4).0 T>jS <AO )«BNC DC7) 

0027 OlKErJSl0\ 2SAV21(2«4 >«pSaV22(244)|B2RNTC190) 

r 

C ■ 

c 


c 

c 


0028 

C 

0A7a ACQ\/i,2,3# 4/ 


C 


0029 


ni?3Ci) a 001 

0030 


ni23(2> • PP2 

00?l 


. _ J125<3» «. M3 

0032 


PASSFl « 1 

0033 


*H«lE • 0 

0034 

c 

PASS » 1 


c 


0C35 SOU ICATE C-0,tAV,YP) 

003s ^ CAlu TlMF (Tl^) 


C 

C 

C 

r 

0C37 PPf SO I«l,60 

0034 sn /T?'S(I> * ! 


0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 
PC47 


( 

SC O'* SM * 1 
SM2 » I 

CALL ?t'TPUT C27#i2) 

/RITE <6.5100 

>100 r0R^,AT (* !fJTE»CluSTER 0!STA*'C5 REPaRT,*) 

/RITE (6,5210) N‘SI'4 

521' raP.MAT (1H0,» iilF POPOlASSES » Slg) 

i^RlTt <6,5300) 

530" F0RhAT </,* rap Thc EVTI-iE PeP?RT enter a "CR"*’, 

2 /,»S F^R A PARTICULAR PA^E E'TRR THE STARTIN<* •» 

3 ’CLUSTER 'MUMHERS >' ) 


0044 

Og49 

0050 ■ 

0051 

0052 

0053 

0054 

0055 

0056 

0057 


150 


5?Cf' 


CALL el'TPUT (7) 
read X!ll52P0) INPUT 
f?PmAT (74A1) 

CALL FR0nT (INPUT, 74) 

IF (IlPUT(I) ,EQ. ’X') ~,a T? 9000 
IF (I,PUT(1) ,VE. » ’) T? 5600 
WHPlE * 1 
ce i7j_ 

IP » h 

CALL INTFF (IP, Input, 74, RM) 






i 

< 

I 

£ 

t 

i 

I 

! 


I 

% 

■f 



560" 


c»nc» 


Bazifil.— . 

CAiL iNTFf (IP.|NP0T,74,8Nfi) 

tSKi-^LU 1 -;0»4- 8 Nl 48 I 4 . iiaSUBJ 
IF (8 n 2 .LT« 1 SM8 tOT* N08UB) 


OF 


ri 

T0 


S800 

9000 


iZQ 

C 

.131 


18 • 8N8 

- - 

IF (Pass .eo, 2 *ai4Di ni80(U .ns* ai op to soo 
IF (QlOStn *80. 0) 80 T0 800 
IF (0l83m .EO, 6) CAUL PUTPUT (87.18) 

IF (D183U) .EQ. 9) HPITE (0»40) 

IF (0l83(I) .EQ. 3) WPItE (3i40) 

Flfi)lA.T 

«PITE (0183(l)ilia0) P0.rAY.vM.TlN 
F0MMAT (IHO.SOX.'DATEI •.I8.2(*/'.I2). 

1 /5AX.12(*»»)./.51X.‘TI*'E| *.8Al./.56X.l8((«*n 

continue 


Da 400-Uija 

IF (PASS .EQ. 2 ,AMO, nl23(l) .NE« 6) Q4 TO 400 
;F (Pl23(I) .EO. 0) 8* TO 40U 

WRITf: (012S(n«l?On) 

F0P»:AT (IH0.23X, MMCLUSTeR DISTANCE REP0MT*) 
Ci3*«T!nUE 


DM 60u 1*1.3 

ir (Pass ,eq, 2 .and, , '>124(1) ,ne. a) o? to aoo 

IF (Dl23(I) .£0, 0) S'* TO 60U 

•4R1TE C012S(1)-1RC0) ISES 

write (0123(1). 1<U0) ((AcDATF(J.K)|J*1.2).Kal.HAXACC) 
forma? (1H0»» SbPMENT 10 *.1(S) 

format (1H0.» AC^UlSTTlOv 0AT6(S) * .2X. (4(12. t/t )S.Ax) ) ) 

CO'^’TInUE 


OR 700 1 * 1 . 3 . . 

IF (PASS ,gQ, 2 .AND, '' 124 ( 1 ) .NE, 6 ) 60 TO 700 

IF (Oi 23 (l) ,ee. 0 ) GP TO 700 

write (Ol 23 (n«lAOn) ( (C^NvECiJ.K). J« 1 . 4 ).K* 1 . 4 ) 

• format (iHOf* CLtiSTERlNQ CMANNEUS (( 2 X« ( 4 ( ll.lX) ) « 3 X. 
1 ( 4 (ll.lX)). 3 X.( 4 (tl,lX)). 3 X«( 4 (ll«lX))) 

(^m.MLnui 


FCL * Sni 
D0 900 |*1|3 

IF (Pass ,SQ. 2 .AND, ^124(1) '.NE« A) 6N T0 9O0 
- -l£-lPl?.anj -1 60. fil 84 T1 700 . 

LCL • SNi 4 13 

IF (Dl23(D ,E0, 6) UCL ■ SNl * A 



fBRTRAN 

IV*PlU 8 V02*04 12153117' ?9«flBjWDIAL PAGE ISpAai 

1HCLPSa£TI!I 

.. - .QE-BOOR JQUA.r^'. 

0096 

r 

IP CUCi. |6T, MOSUU) LCL • NOSUB 

0099 


write <0l2sm*1700) ICATNAM(8UBCAT(jn*j«PCLALeU 

0100 

1700 

P0B(1AT IlHOi* rATti89RYS(14(3X«A2Jtl 

0101 


write (0123(1), 1710) (0TNS(j},JaPeLtLCL) 

0102 .. 

. in^ MRiliTJLL. iLUSTPR- Vt UlLLLl^in - . . 

0103 


WRITE (0123(1 ), 1720) 

0104 

1220 

F0»HAT (• ') 

0105 

900 

C 

C0VTIWU6 

0104 

C 

IP.^paSS ,50, ?j g0 TO ?0P0._ _ . 

0107 

C 

CALL DATaRO (SMl.SM2iN2St;B) 

0108 

c 

no SCOO !ai,14 

0109 


03 3000 J«l,14 

0110 

0111 


'' ■ J*(I»14»14) 
r»PRvT|0)» 0,0 

0112 


02 jOrO Hal(4 

0113 


00 3000 ual»4 

0114 


M a L*(K»4«4)4(J«16-16) 

0115 


N a L*(K*4*4)4(Ial6*16) 

0116 


IP (ChNV 5C(W|K) ,feO, ®) 63 TO 3000 

0117 


»P'^^T(0) a ARSIbSAvei(M) • o<;AvE 2(M)) a BpRN'T(R) 

0118 

3100 

C 

C0MTIN5JE 

0119 

C 

♦’no'' 

OB 6C00 (al.T 

Ol?Q 


IP (Pass, EC, 2 .AAD. ti23(T) ,kE, 6) 60 TO AOOO 

0121 


IP (ni23(I) ,E0. C) 6^ TB 6000 

0122 


SLC » SM 

0123 


ELP « SMI ♦ 13 

01?4 


■PCL • SN2 

0125 


LCL » SN? * 13 

0126 


IP (0123(1) ,JF, 6) 6' TP 2500 

0127 


LCL » SM2 ♦ 6 

0128 


ELC t SM * /s 

0129 

25.71 

IP (Cl2 ,6T, im'*Sl'c) ELC a \-SUfe 

013.1 • 


IP (LCL ,(iT, N"S'lp) L'*L a N'-SUb 

0131 


Wa 0 

0132 


o a 1 

0133 


IP (p»SS ,EJ, ? '.AviU, '11^3(1 ) ‘,60, 6) P a 99 

0134 


< a u 

0135 

1« 

no 4500 JaPCL.LCL 

0136 

f* 

M a M ♦ 1 

0137 

L 

00 aToO xaI,(6LC^LC*l> 

0136 


IP (<<SN2aM-i) • (SNl**<-l)) .tfj, 0) 60 T0 4300 

0139 

4?n« 

c 

C0WTl:.l'E 


0140 K t (PUC-SLC«1) 

0141 4:iC') 4RIJE (D12S(I)|44C0) CAT' AH(sUBCAT(J)}ieTN8(J)» 

1 - - («P(?M(l>.L«Pi<K*P.“1)> 

0142 4400 format <1 •ilXiA?«3X.12,?Xi(l4(lX|P6«l))) 


4 




8««AUa«T7 


mt 

ftiAt 

I|I9 

iifi 


6ti4 

80S 

Uf4 

OiS7 

0196 

0199 


0100 

0101 

0162 

0103 

0164 

0109 

0166 

0107 

0168 

0169 

0170 

0171 

0172 

0173 

0174 




ff CDOrlWi^-vOO; 008 .CO* 0 •09, 008 01 ^ TO 0000 

-OaiUL:-_Ult. . _ . : 

ir (8 n8 ;ot, mosuo) so to 0900 t 

- M If . . 

0900 SMI > SNl * ADDN 

if-taaii_jtt*_iiaauai tt.t«.«iiUL^ 

- 9*88 4 1 ■ ■>- ■'* 

SN2 1 M8. . ■ 4 4 ■ < . . ^ 

6700 tr (WH0U iNEri) 60 TO 7006 

ir (981 .saa-o^er; 002 .lOt 0 »e9’. oos ;eo» o) 00 to rooo 

ir (Sn 2 »LTt SNII GO TO OlOO 

30.1?. 429 .... ... 

C ■ ■ 

7800 WRITS (0#7100| SNl.SM 

7100 F0WWAT CIHO. • rwO Th 6 Ng*T S6Q868T|*L PAGE ENTER 6 "CR«»»i 

1 /i*S90R ANY OTHER PAGE EnTER THE 0TARTIN8 CLUSTER NUHOERS •« 

2 t2**|)*12«< >•) 

C . 

4 CALL OUTPUT (7> 

READ (6492001 INPUT 
CALL PWONT (!NPUt«74) 

JF (INPUT(I) *80’. *X*) Qfl T2 9000 
IF (INPUT(I) ,NE. • *) 60 TA 7300 

ENll. t-SNl. ■ 

SN22 ■ Sv2 

. 00 T«J 7590 

7300 tP ■ 0 

_CALL IMJFF (!P,IwPuTi74,SNU) 

CALL INTFF (IP*I‘iPUT«74«<;n22) 

- 7902 If (SjiU 4i-T4-l-iS!fii«.9'‘ll .6T, N0SUB* 8« TO 700« 

IF (!(n22 iLT, 1 tPR* Sv22 .GT. N0SUB) 69 TO 7000 

. SNl » SNll 

SN2 • SN22 


0179 

c ■ 

_Q0 tr 179 

0176 

c 

803'* 

ADOn • 7 

0177 


IF (Pass ,eo, 1) 

0176 


PAPS • 1 

0179 


60 TR 6300 

0100 

B90C 

PASS ■ 2 

0101 


5? r'^ 6300 

010? 

C 

S'700 

' WRITS "(oTiroo) 

0183 


WRITE <AiJ7403 I! 

0184 

871C 

- Jfi. 

P0RMAT (1H0»* 

0189 

C 

910? . 

w»ITOij9200i 


N0 CLUSTER data available for SEGMENT ««10) 




original PAGP ic 


T0RTRAN 1V«PLUS V08«04 
-IRCLPS^FIN . .. -/meL^CKS/HR . 


18193117 89»AU0«77 


01R6 

0187 

018B 


70RMAT (//»»S BNTBR a 
CALL 0UTRUT «7) 
read (6,S200) input 


“**CR» T» P80CSED 


01P9 


CALL FR0mT (tNPUTi74) 


0190 

f - 

IF ci\Pum) ,ME’. • •) r.i 

T0 9100 

Cl»l 

C 

C 

r 

99 or 

D0 9092 |Plf3 


fl92 


IF (Dl83(l) .EO. 8) WRITS 

(8*9091) 

0193 


IF tQl23(n .4 £jD. 31 WSm 

(3*9(191) 

0194 

9091 

P0R(»4T (lhO»‘ ») 


0195 

9092 

C0NTInUE 



gnp 


^17 
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E ENTIRE REPORT 
ENTER A *CR", FOR A 
PARTICDXAR PA(S ENTER 
STARTING CLUSTER 
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* a ! 


LZNB PRZMTSR 


OBTBIQIZNB 
DEVICE (8) ABD 
OOTPOT *INTBR- 
CIAJ8TSR 

DZ8EMICE REPOBf' 







DKTBRHIMB 
DEVICE (S) AND 
OUTPUT SEQUEN- 
TIAL CATEGORIES 
AND CLUSTER 
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19.3 8OBR0UTIMB DATARD 


ORIGINA] 
OF POOR 


rittiJRkH IV.PlUS 12153147 ?9»AU0«77 


INCLOSiFTn 

/TP|P|.0CI<S/WP 

0001 

C 

suoqeuFtME datard (SNitS'iii^oSuB) 


C 

C 



C 



c 



c 

: • • 


c 




IMBlICIT integer (A) 

0003 

c 

u 

lMf>i ICIT INTFGER (c-v» 

0004 

c 

r 

fiVTC aUrFR<144)»‘'0SU» 

0005 

c 

u 

CPf-M^'N/lFRl/'^SAVCl.eSAVfc'’ 

0006 

c 

c 

cotip/ALgMce (BurpRciJ# na)» 

0007 

c 

c 

c 

DI**hNSl3'! PKSOI.rtSAVEKjAA) ,b8AVE2<244) 


0 


onP3 


J 5 1 

0CC9 


730 I*a:iliS'r' J *13 

OCIO 


ir (N^iSUH ,LT, 1) Ti4 300 

0011 

c 

REAP (7«i) li'jrrR 

noi? 


100 Kal.7.2 

0013 


ISAVrl(J) ■ ^»1(K> 

0014 

mo 

c 

J * J ♦ 1 

OOl-i 


03 no K«in,16i2 

0C16 


0SAv£l(J) ■ 'Al(K) 

0017 

no 

c 

J ■ J • 1 

ocia 


03 l2i) K*10,25,2 

0019 


RSAVKl(J) • FKA) 

oo?c 

170 

c 

J » J ♦ 1 

0021 


!)|7 139 Ks2R*34|2 

0022 


=’SAVf:l«J) • RtlK) 

0023 

130 

c 

c 

J * J ♦ 1 

0024 

20C 

c 

c 

c 

Off'Tlf.UE 

0029 

300 

J ■ 1 

0026 


00 900 I«SN2iSN2*l3 


5^7 


< PAGE IS 
QUAury 

PAQ6 10 


1SIS3I47 99«AUtt«77 


rtRTRAN 

tV«PLUS 

V02-O4 12193147 

tNCLOSiFTi^ 

/T2|(*L80K8/WR 

0077 


IP (t *0T« NaSUOl 68 TO 

0070 

C 

READ (P*t) BUFPR 

0029 


no 400 K9l«7«2 

0030 


98AVE2<J) • 9KK) 

0031 

400 

C 

J t J • 1 

0032 


DO 4t0 K*10tl6(2 

0033 


BSAvE2<J} • BKK) 

0034 

410 

C 

j • j ♦ 1 

0039 


DO 420 K«19«29(2 

0036 


RSAVE2CJ) • n(K) 

0037 

420 

C 

J • J ♦ 1 

033d 


00 430 Kb26i34<2 

0039 


3SAvF2tJl ■ SKKI 

0040 

430 

C 

C 

C 

J » J ♦ 1 

0041 

900 

C 

C 

C 

C0^'Tt^<UE 

0042 

9009 

C 

C 

C 

RETu'^ 

0043 


ENn 


9A8E U 


ZOB' 
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19.3 SlIBROUTINB DATARD 

A flow chart for this subroutihs is not available. 
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19.4 SOBBOOTIME H 8 BKPQ i 

Subr«*utine hSEKPQ (SCRNLC) 

C 

C 

C 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

C SURRi"UT|NE TM M0USE KEFP THE TER^'IMAL SCP66N 

C 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC^CCCCCCCCCCCCCCCC 

c 
c 
c 
c 
c 


c 

c 


IHPLICIT integer (A-2) 


DATA SCRNCT/0/ 


C 

C 

c 


100 


IF (SCRNLC ,EC. -1) S» TE 
SCPNCT • SCRMcT ♦ SCRNLC 
IF (SCRNCT .LT. 25) RETURN 
call BUTPUT (27.12) 

SCRNCT • 0 
RETURN 


X. ^ 






19.4 8UBR00T1NB HSEKPG 

! 

A flow chart for this subroutine is not availi^le. 



19.5 80BRODTIME BHFW i 


9TRAH IV«|ILUS V02«Q4 iS 1 941 01 29*AUQ«77 

•RT.^TN /T9I8L0CK8/WR 

1 8U9R0UT1N8 8RFCi,U(Ul«U2iU3) 

2 iNPLlCtr iKlTfOERCA*!} 

8 IP(Ut.2fi*fl)ai Tf 1 

4 CALI. RER0RTCU1} 

9 1 . C9NUNUE 

6 IP(U2. 80*0)60 T0 2 

7 CALL R8R0RT(U2> 

8 2 C0MTIMU8 

9 17(68.80*0)60 T0 3 

0 CALL REP0RT(U3) 

1 8 CiNTlhiUE 

2 RETURN 






19.6 aoaaoOTiMB report i 


riKTRAN IV< 
HPBRTifTN 
0001 
0002 

0003 

0004 
0009 
0000 


0007 

0006 

0009 

0010 
0011 


Ct 


c* 


Plus V02«04 l2l94U0 20.AUQ*77 PAOI 9 

/TRiBl0CK8/WR 
SUBROuTtNfi R8P0RT(KU) 

IMPLICIT INTEGPR(A<8) 
real Pes*Tl(T2.TS 
include '8VlC300t3lCAHSCOMPN,lNC« 
include '8VIC300i33CAMSPAHAM.InC« 

parameter MAXCATtOO*MAX8UU«00«MAXCHN>4,NPlXffl96iNLINPU7|MAXPLOa90 
l»HAXValltNn0TS«2O9.OLSKIPalO(DSSKlPalO(NAXACD«6»HAXACC»4i 
2N0SPWOa6iNRDTNOilO 

equivalence (CliACOATE)i(C?f tSE6)i(CS«PPLA6}«(C4iTXlli(C9|0|8KID> 
INTEGER C1(469),C2(296 )iC3(71)«C4(346}|C9(629) 

integer 4CDATB*SU6CAT,SURP2P.CaTkKTiCATTH 
byte CHKVECtNBCHAN.NBSUBiOrTCATiOBTCLU 

C0hNOlN/COHl/ACDATE(2.MAXACC)iCHNVEC(MAXCHNiNAXACC)«NECHANtNE9UR( 

lSU9CAT(MAXSUP).SUdreP(»AXS')B)fCATKNT(MAXeAT}«CATTH(NAXCAT)«N0D:f, 

2N0!?U.N?TH»D0TCAT(N26TS),')0TCLUCNDOTSI 


0012 

0013 

0014 
0019 
0C16 


INTEGER AOATESiSUNA2.ALALSTiFLOOAV.O0TDAY.POATEiiTOATEl 
integer PDATP2,TOATE2.POATE3|TQATS3teATNAM*OlSK|O*RANO0M*6RII) 
«YTB DP.L^L3iN0ACO,!;i?ILOR,S'.>NeL.NSTART,NTrp6l»ALP|ALP® 

BYTE PCTCT.PCTCTR, VAR, VAR0,OLARfcL» TYPE 

C0MH'^^/COR2/ISF6,O(LrLG|N0ACO,AOATE8(2,HAXACD)«8BlL6P(MAXACO)« 

l$UNEL(>'AXACD),SlJNA?(MAXAC0),tMDATE(2)*ANALST(5)iPL0DAY(2)» 

2D0TDAY(2),MSTARTiNTYPEl,PDATEl(2),TDATEl(2)«PDATE2(2)iTDATE2(2), 

4PDATE3<2>,TOATe3<2),A0CAT,rATN4f*(MAXCAT),ALP<MAXCAT)#ALP0» 

4 PCTCT«*<A)(CAT)|PCTCT0,VAR(MAXCAT).VARP 


0017 

Odd 

0C19 


0C?3 

0C?1 

0G?2 


00?3 

00?A 

0029 

0026 

0027 

0026 

0029 

0039 

00^1 

0032 

0033 
0C34 

0035 

0036 

0037 

oosa 

0039 


tNTEGgP ErLA61.ErLAU?,&FLAG3,ErLA64|ErLAQ5,UrLAGl*UPUAC2«UrLA63, 
lUriAGA 

I.<lTEGt» PFLAGi'JSKM'lT 

C 2 HM^',/r 0 H 3 /PrLA 6 ,r'SKMNT,ErLAGl»EFLA 62 ,EPLA 63 ,GPLAQ 4 *ErLA 65 tUFLAOl 

l,t‘FLAr.2,UFLAG3,urLA6A,ME*^LAB<MAXSUP) 

C» 

integer TXl,TYl,TX2,TV2,ACnlSP,G,B,DTWINO,D0TARY,OMlN,GMAX,fUL 
I\TE«i-R SpwlND,CLA"f-(r,CLUaNO 

./c7ma/TX1,TYi ,TX7,TY'»,IXi,|Yl,I*2,!Y2,ACD|SP(2),Ill(4),0(4), 
l^‘(4),';Ti,iNp(9,\,dnT\D),SP!.i' O(5 ,npspnO),ImwINP( 4»,NIJMD0T» 
2D0TA('Y(.\r0TS),r,MlN,6MAX,rUL(2»7),CLAl«NP(S),CLUUNO(6) 
n0*’M'*N/n(('M?/DISKlB,RA^nn>'{vDFT9),G«in(MO0TSI,PLARBL<NO0TS)« 
lTYOF{;,pjTS),RBCL'"C 
PI^'E’'Sli*N DATA(72),blv(4) 

RYTE T1^•(8),0DP 

DATA U,BlK,LLS/7, • '.17/ 

FAGE»i 

T2.NLI‘- 

T3«MPIX 

T2»T3#T3 

CALL TImE(TIi-) 

nvDdMil) 

I$«l 

LS«LLP 

CALL !PaTE(NP,PAV,yR) 

4 inxU.fJEtOJGP T0 5 

CALL CS3DpN(KU,PAGF,BLt<|l) 

Gia T7 6 

5 WRIT? (»<U*ll2) 
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rePTAAN tV.PLUS V02-04 (2154110 29»AU0«77 PAGE 4 

^T^JlLGfiKS/WR . 

0040 WRtTE(KU»in0)H7|QAr*YP 

0041 writ6(kui101)TIH 

0042 6 WRlTG(KUilQ2) 

0043 HRITE(Kuti03)lSEQ 

0044 URtTE(Kuil04)((AeOATE(J|K).Jll,2)iKai*HAXACC) 

004|» _4}ilTE^(KU iia5) CHNVec __ 

0046 4RtTF(4uilQ6) 

0047 OE 1 ltlS,N55U'» 

0046 PEAO(IU«I«i;RRa9,ENnilO}CATA 

0049 00 2 K*liHAXACC 

005C GN(K)«0 

0051 IF.lACDMf(iiJS),E(Ji0)G6 T'’ 2 . . 

0052 jaK«ie-l 

0C53 GNi(K)»06TA( J)«S6IL XK) 

0054 2 C0vTt\'i6 

0055 K«Sy^C*T<l> 

0056 CAT«CaTmAm(K> 

0057 TUili'pPtfPm 

0050 P0S*Ti/t2 

0059 P6SaPJi<;ttlon,0 

006 J WRITt(:<j»lO7)IiCAT,SU6P0P( ! )|PPS,GN 

0061 •'E.6)G'? Tio 1 

0062 1F(I .LT.LS)G5 T2 1 

0063 LSpLS^ULS 

0064 lF(|.S,3T,lV5)SUP)LS«‘'f‘'Sy9 

0069 ISal^i 

0066 «'RITF(Kj,113) 

0067 •»EAn(6.iU)onu 

0066 lF(n’'n,E0.»X*)G6 T'> « 

0069 IF ( I .^;f!,V0SUP)r,0 r 

C07C r,,l T‘* 4 

0C7i 1 r0'JTI^UF 

007? h BKTlirv 

0073 9 "RIT^(6,105) 

0074 Gir; T-^ t< 

0C79 1C -HITF(6,U9) 

0076 G0 T? 8 

0077 iff, Pk)Pmat( 46X, ‘PATE • 1 1 2« 2 ( * / * • 1 2 ) /52X«3( i X) ) 

007:' lOj F?Wm*T( t0»49X, *T|hP *. 641 , /52y» 3 (*••»» X) ) 

0079 • 1C9 F0Rm 4T( •0»?4X» 'aPlRF CLUSTfA PpPPRT*) 

OCPC 1C* FPRHat(»0»,* CLuSTPF I<FP?RT fi««? segment NUHBFR '» 14/36X» ♦••••» ) 
OCPl 101 r7iPM4T(*3«, • ac;3IJI3ITI:-:n i)iTe(9) 'i4(|2*lX|I3t6X)) 

00fl2 105 raRMATf'O*,* CLUSTCHi*'“t ••4(4t2«4X)) 

0063 106 F0Rm4t{ *0* ,35X, •PEPCFf<TA.16 0F • ,6X| •6PEENV CLUSTER* #4X, *CATE6PRV» 

1.4X, •p:ipULATl»>'i*i7x, 'S?6 'E' T'»5X, i NUMBER*) 

0084 107 F0R*1AT(lfl,lOX,A2,7Xi !7,4X,Fl.'5,Pi3X,4(lX,|4)) 

0089 10« r0RMAT(* 6PR8P REAnlt^O STATJSTiCS FILE FOR CLUSTER REP0RT») 

0086 109 r09MAT(*_6VD 0F Plib 6^ STATISTICS FILE F0P CLUSTER REP0PT*) 

0087 ill F0RMAT( • • ) ■ 

0C68 111 F0RMATU1) 

0089 112 Ftf^iMATCl *) 


Fk'PMATOSCR TP CPNTINJE, 
END 


r^ AR0RT REP0RT8 






19.6 80BBOOTIME REPORT 


A flow chart for this subroutine is not available 
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rePTRAN IV. 

>PLUS vo?«04 12194123 

29*AUQ*77 pace 8 

REPeiRT.fTfti 

. ^TPiBlECKS/wR 


c 

i^KArSsT cusreR 

RSPpRT' 

OCDl 

SUBRPuTlNg CLUSNNt J1«U2|M9) 

1 

OOOif 

IHPLICIT t:4TfGER(A«2) 


OCOi 

tF(Ul.feStO)6e T0 1 

j 

0004 

CALL PEpPTN(Ul) 


000$ . 1 

CawtliiUE. . - 


0006 

ir(U?.EQ.0)&P T9 2 

1 

i 

0007 

. CALL R6PRTN(U2> 


0C04 ? 

CONTIN'JE 

i 

0009 

lP(U3.i;0(0)aP T0 i 


0010 

CALL «PpPTn<U3) 


0011 •? 

caamjfc . 

0012 

0013 

EN3 


I 



19.7 8DBR0DTINB CtOSWI 

A flow chart for this oubroutiaa ia not available* 


19.8 SUBBOUTIWg HEPRTM 


rBDT^AN IV. 

0001 

0002 

0003 

0004 

0005 


0006 
0007 


PuUS )T0?..n4 12IS4I89 ?9«AUQ«77 OAOC 10 

Su9R?yT|M6 REPQTMC^U) 

IRRLICIT I'TOOfeR <A-f) 

IivCL**9E *SV|C300«S1Ca*<8C^»<^NiIvC* 

iNCkli^O^ 'SV|C300(S3CArtSPARAM,|' U* 

PARA'’E7pR »*AXCATB6P*^AKSU8«6O,HAXCMNa4|NPtXai9eiNUN>il7«HAXfl.O«90 
l.WAXVBiltNriaT8B200.DLS><lPBlO.D5SKlp4lO.HAXACPaO«HAXACC«4t 
2M05PWDB6fPPOtWOalO 

8QUIVil.6'«CE <CtiACnATE)|(CriIS80)|(e3«PrUAOh(C4«TXl)(Ce9fP|8K10) 
!\TEr*EP Ci(449)«C2(256Ii? 3 (7 t)«C4C 349) 1691424) 


0006 

0009 

0013 


0011 

0012 

001^ 

0il4 

0013 


1ME6ER «CPATE*SUeCAT,^ij4P,.P«CATXKT|CATTH 
hYTE CHiiVfCiMfeCHAN.r rSl'SiU ’TCATfOrTCLU 

ce‘»MP^/^Hl/ACOATE<2.rtAXAC':)»CuNV8C<MAXCMiv,M4XACC)»R9CHAR»*:ftUP. 

]Sli9rAT(MAXRUP)«SUePePC*'AV5'8)iCATHKiT(HAX6AT)«CATTH(nAXCAT)»N8D1* 

2‘Jif^U.\.iTK»O0TCAT(S*‘0TS)..^ifTCU.'(^OeT8) 

INTEGER AOATES.SiJNAA.A^'ALSTfPlDDAV.O'MTDAV.POATEliTOATEl 
INTEffR PDATE2iTQATt?»PpATn3,T''4TBS|CATNAM,0t8KIP#RAN0«H#CP|0 
»^YTB bEL^Lr,,fPACO»‘f.'tL'RiS’iNrL. 'iSTaRT, mTVPEI, ALP» ALP® 

RYTg PCTCT,PCTCT?,VA'>.VAftia,Dl.AgEt,,TY»6 

■M?,/ci«H?/ISEG.r*;L»’Lr,, >yAC'J#A0AT68C2,MAXACn)«8RlLOR(«AXAC0)# 
iRi' ;EL<''A>^ACO)»SU*’Af AyAi*D), !P''AT|(2)»ANALSTC9)»rL0DAV(2)» 
2n<T0AY(2»,‘STAPT,‘.Tv.-'si,i*jiTKl(2),T0AT£lC2)»P0ATP2(2*»TDATE2t2). 
3PDATF3(2>»^DATF3<2)#‘ ?rAT,»!ATNA''(»'AXCAT)|AtP<MAXCAT)»AUP8, 

4 pCTCT(mavC#T)»pcTCT? , waP(MAXCAT)«VARP 


0016 

0017 

cci.^ 


n:ii 

Ot?c 

03?l 


0372 

OC?? 

0C?» 

0C?3 

0C?6 

?C27 

00?K 

0J2Y 

nc?3 


iNTpr.e-? 6ri.Aril,ErLt&7,fFLA“.3|ErtAG4»EFLAO5»UrLA0l»yrLAG2»Un.AG3, 
I'JPL aHa 

iNTgr^e-'' ppiAP.^stff* T 

CS M ' ./C^NY/PPLaG. 3t‘'H'T,l:rLAUiierLAG2,ErLAGS.ErLA04»ErLA09»UFLA8l 
I, jPl.A52,0FLAr,3,yPL'b4, is 'L \0<MA«Sl;B) 

l^TE;;cR Txl,TYl,TX*’,TY?,AC''ISf,G,b,DT4lN0.n8TARV|6M!N»GMAX,rUL 

jc.Tpr.gP SP'^1M,,CLA' -r.rLf* D 

r: 'Mi’*./C?'W4/TX1 ,TY 1 ,TX?,TY ix< * I Yli IX?| IY2* AC01SP(2>*I IK4)(Q(4) • 
l*i{4),QT.lNr(*>,-'<i»'1 C<3, '''SPWO)»|Mwlf'fU4),NUMP0T» 

2LV TaRv(' (f • y),clA<iN0C8).CLU'<RO(A) 

C^f»«''i/r;ZMb/''I«'<|;i,»i4^rO!’( I5.'T4>,GP1 C(vOPTS),OLABElCRDPT 8), 
lTYPg(f«.i',/TS),Ptri.«c 
:'I»'6f'Sl'/ '' 'RK '■('••n ’TS).:) 'T(5» 

'»YT6 L‘*^t-t5),T!n‘‘)#i‘L*':rl.(Nr'i'T!>) 

’EAL T'*lSC.U.‘’TS),f .•.(«) 

.^YTE D . ' 

lUTA rxR.KNCN.m^-LK.LLS/A.A,?.* *.17/ 
ir(gFuA-i4,'i£,l)Q-» T'. bC- 

in >)TY'»fel,'fJ,0)3* Tt' YC 
IS*1 


0C31 

o:?2 

r:33 

0C34 

r:?3 

0337 

033< 

0339 


PA'^ttl 

CL 'SE( '\IT«liJ,:-iSP -PPA'SAV ;m 
CALL A3Sl6»!nU.'4Vlt303»l3 iN.T - P|l») 
PEFI..6 FiLP !U(HAXRUN,73?, 
call I'JATElMP.nAY.YN) 

1NR«1 

MBADI I'<* l\4)KNN| VO 


J/f 




PtU* VO?.04 32194120 ?V,4:jO«77 M 

pipm. 

^•Tn 

/TP|*^t®C'<S/*»P 

OC<f. 


‘.'1S»4 

0C41 

1 

M«NX*KC:q 

0i)42 



0243 


irCM.‘3r*K*i#<»C^ Tc 4 

0044 


ir(4?,'tT.HMN)N2«4|%- 

C04» 


IF<^^^•.^fet 6 ) 6 P T 0 7 

»*34« 


CALL C90t>Pf:(A*PARF.,r<LK,l) 

0047 


Gte T'* ti 

ro4ci 

7 

•*P!Tf C‘^u»lt 2 > 

0049 


wPITf C<u»ni‘)f y,»'AY,v^ 

r u^'.' 


•’MTf-(K')»m>TlM 

0C5i 





>-P! rf>i*<u»l'’3)l!sfe“ 



'PlTf 4‘'l»l'4»((ArL/Tk{J»''),w4l,2)#i<»l#MAKACC> 

(C*'< 





* 0 ) 

o:*f 


0£ 3 l»TS, vSf 

oc^? 


!%«•*• *1 



K645(t' 0<AMS <,r).!’L* 'v: L»'‘)*Tr.! 8 CK),K«i,\ 0 > 

0C^9 


'Nt: 

!i A r 


ri- ? • « .i. 2 

reel 



o :*2 



n:oJ 


LA*;t<‘.‘ )«C'TmA M J> 

92A4 


» A(»ji )»ir'l <<« ) 

ftC4? 


rpTcr )t*4T ;"( .) 

UOe 


f:^;T !>.'«; 

03(^7 


• *•1 r-(4 ;, 117)1, (TAf ),' 



IM «t. ‘‘.e) )*' T , 3 

fl >0 


T/ S 

9C7? 



'■' C 7 X 


u ( 1 . ■ , ;T.ii'si'.nL«« . '«w' 

DC7;; 



?;7j 


wIT'( 

p;74 



937S 


i) (iv '*,ca, •<' )^k' T" 4 

0*»7'» 


K ( 1 . 1 .*^ )'•-'> T < 

CC77 


%.! T ^ 

ru7<. 


Cj ;t» • 

7379 


Vr'lT^ | 

0J4j 


tr(^ , r.i)«:* TJ 1 

P3**l 


it T X 

A » ^ 3 


rt *S- 1 <lT«l!i, Sf-t'iiiV •) 

o:j»3 

r; 

^r'r>(i T7*1 J,^A It- • ' 1 3 , X 3 ';l .'L T 4Tg , T **P • , TVPg* ♦ «LO * • 

lAC:*"i*‘* ‘ 3r>g(;T , , A-aT, -;bCL«» 0 SI 2 B«J 6 ) 

0?**4 

=<tTo'' . 

Py^‘i 


'•HI (4,104 )*-TVP*5l .FTlaS-*. 




r:«7 


^L-AkJO.iJDC.t** 



ircDi T ■ A 

Oj“9 


•J4 T • ** 

90C'' 

ICC 

»i7»iAT(44K,*nAT£ • , 1 2, 2 ( • / • , I" ) /OSX, S( *•• • , V ) ) 

•V'«l 


rj-» 'AT(ii’»,4Sx,*ri’ f * , ‘‘A * ,/97A,3( ) 


U',-5 

ra^*‘AT(«3»,24K,»cL'’SiJ!B t'srSY KtiCMb^p pep^urt) 

e:e« 

" 1 1 

f tt^MATt *0* , * StUMf T •, *4/l^K, •••••*} 

:;94 

J14 

Ft^rv,iATCC»,‘ ACUnpITI.i^ D TM«.) ' , 4( I2,1X, 13««X ) I 


r-jf ■J!?' 




P0OTHAN IV.PlUS V02.04 l2t»4l2S ?9«AU6«77 l»AQE i2 

P6P(?WT,FT^ /Ti^jeLlCKS/W” 

0099 105 P09HATOO*.* CLUSTERING CHANNELS •,4(412.47)1 

009o 106 r0Rn«TOOCLUSTgR(, 107 , •nearest NEtQHS0R Dl$TANCi/O0T GRtO NUMSER/ 

ILAREL*) 

0097 107 r0RHAT(l3,lCX,9(P7;2,*/M3,'/*«Aa>) 

0094 loe P0RMAT(tocANNeT rrt^viog the nearest neighsor cluster repgrt(/ 
•,Ua0X,*6PL*G4_5_M41 

0099 109 P0RMAT(Ai) 

ClPO lie P0RMAT(« ♦) 

Old 111 P4BNAT(Al) 

0102 112 F0R<1AT{»1 •) 

0103 113 r *’HAT{*9CR r^ CPNTMuE. X to abort REP0RT8 > •) 

0104 . .. t'-. , ... 







3 ^/ 







19.8 SOBBOPTINE REPRTO 

A flow chart for this aubrouttne is not available* 
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PIBLD DBPINZTZON REPORT PLDRPT 




Mf?HTRAN 1V« 
PUDRPt.rtN 
0001 
OC02 
0CC3 
0004 


0005 

0906 


t2|54lfS. 30 *aUQ»77 


^Adi i 


C* 


«*Lv»S V02-J4 

✓T»^l0i.0CKS/w0 
IH^UICIT 1NT6QP0(A*2) 
include *CSOO|3]CAnSCi}M0N,tNC* 
include *SYIC900i31CAMSPAR4Hi{nC* 

PARAuaTER •^AXCATa6''|MAXSU0a60tMA)(CHN«4«NPtXal95tNLtN«ll7iMAXrLO«90 
llHAXYatlfN^OTSa2O9,CLSi<IP*lQ|^SSKlP«|0»NAXAC0«A|N/IXACC«4| 
2NeSP4D«6« N'^UTwDait) 

EQUIVALPNCB (Cli achate )»(C 9*tSEG|fCC3«PPLAQ)*CC4«TXl)*(C9*0tSKID> 
lNTaOF.» Cir4A9)iC2(256)(C3(71)*C4(340)tC9(424> 


0907 

0004 

0009 


ocin 

ecu 

0912 

PCJ3 

*1014 


INTECrR ACDATE»SU*iiCAT.SOHPr'P,CATKKTiCATTM 
•ntfe CU^VBC4‘4tf0HiN..^rSU4.p.-TQ4t,0ei.CLU 

CP'*M'\/c"Ml/ACnATls(2,M4Xf.C‘;)iCMNVECCMAXCHN»MAXACC).N0CHAN,NiSU»» 
iSui^CATC »4xsj'»),Si't'P0P(KAXS 9 »»CATknT<HAXCaT)»CATTMHAXCAT),N«O 0. 
2M|(IHU. ,>'TU.P*JTCAr(\' 0TS)|nHTCLP(NDKTS) 

C« 

lNTenc< ADATeS,SllN42,A^ALST,FL0DAY.DeT0AV.P0AT61»Tl)ATEl 
lM6f}c4 PCATP2,TnATfc?,PDATfe3|TnATE3»CATN4N,D|SK|njRANDPM,GPI0 
GYTE i rtPL-3.Mf4Cn,‘‘?lLf''R.S t\PL.NSTART»wTVP6l.ALP»ALP8 
HYTt PrTCT,PrTrT'% VAR, VA»tr,DI.APEL» TYPE 

Ck'Av«v/c9N2/ISeG,l’' LPLO. CO, ADATCS«2,MAXACn>,SPlLGR(PAXAC0>» 
iS.i'ugu *AXAC0),Sur a^(MaYACD 1 , P^ATtC?), AN4 lSTC5),FL0DAY(2), 
^Oi^TDAv{?),^,START•<'‘^VPfc•l,PU•T''l(2),TDATFH^),POATE^{^),TOATE2C2^, 
3PDATF3(2> •T0AT63(2>,NPCAT,HATi^Af'<pAXCAT),ALP<HAXCAT)»ALP«» 

4 oCTCT{‘-AvCAT),PCTCTb, VAH(HAXCAT), V4RP 

C» 


e:t;> 

COlo 

0017 


iNTpr.^,.; LR.AOi,ErLAG2,ErLA''.3,krLAG4,EfLAG9*urLAGl*')fLA62,urLA63, 

I ••'F LAP I 

IMc'flR RFLAG,HS»<r'' T 

Ci- /;• ’mi/pflaP,'S'-''-‘ r,(rrL»6l *£Fl AP2,£FLAG3,EFLAP,4»6FI AG5,UFLAQl 
I.uFl^ - ^,'.'FLAn3,jrLu-4, •'E'L\b(»' aXSL'») 


OjJ.C' 

CCl'J 

n:?j 




r:?2 

p:?3 

c:?4 

C2?5 

00?6 

rC27 

fi;?4 


IhTFf ,TYi ,TX7,TY2, 'C''ISP,U,t>,DTWIND,n0TARY,QMlN,6MAX,FUL 

Ir.Tfc-,;:-;; ^P ■I'' 3,CL4 ?.r',CL.'*"D 

r;* ■ /n'^HA/TXl.TTl ,TX?,TY;, TXt« 1V1,IX2, !Y2,AC0ISP(2),1I1(4),G(4), 

14M) ,.-!T .1 ),SP < 1 IMmINP<4),NOHD0T, 

2-VTAeY(>9eTS),G<4lV.u>AX,Fj. ( ?, 7 ) , ClAWN3(§) , CLUWNOC 4) 

Ciiit If \ ( ■C'‘T4),GBlPtY00TS),0LA9EL(Nn'^T5), 

lTYPg{ vr-iTS),Ktr|^>»,; 

.;YTF “.vrX,''fev/,^v.U''-PL 

’ f-K' Rlfl*,' FL3 NAi-( 3) , >Ti X (2 , .*• AX V ) , TVPC3) 

' ‘ jlpv r VTX(?,. 4XW 

IaTa "72h?U/ 

I?ATA 

L'aTA TYP/PM ,2M ,«k- / 

I0«A 


COPY 

0030 

o:3i 1 


II«1 

CAU, ECAPSrun 
CALL Hi.fPLt(7) 


0032 

0C33 

0034 

0035 

0C36 to 
0037 
0039 
0039 


CALL '^UTPUT(27,lv) 

IF{»-f'LAGT,FU,(n PITK liMOliO 

IF «rFL'33,RU,0) ''i' I*' IV. ’ 

'KlT‘-(lD,in) 

F/I-SmAtI*! r;fePB:?T 0(^VIC^ ( T ) tf- 1 ^AL , IGI "'CID «« <DlYE PRINTPR?>*) 

M£AD(lij,20) r*fcv 

rpiUlATlAl) 

ireirv.F'J, *p» 'X* ) Gr re 202 




t 


rePTRAN Ui 

rtORPTifTN 


Plus 


V02-04 
/T&l9LPC>iS/UA 


•i2l54t«5 ?»«AUG«7? 


PAOG 2 


U 


0040 


IF<B6V.60.»T») 00 TO 190 

0841 


tF(0€ViE9t*Q*} 69 TIS 101 

0042 


tF(0Ev.->iE,*|.<) 60 T0 1 

0043 


T0*6 

' 0044 


CALL ASStQN(I0i*I.Pl') 

0045 


‘4Ll.'l?llO.. 

0046 


4plT»-( i0.ino») 

0047 


30 T.* 102 

0043 

131 

I(0«9 

0049 


CAlL ASSIQNUOi’CPIM 

0C5u 


»4RtTt( l0iinOP) 

0051 


.uiuuiia 

0052 


R0 Tf JO? 

005J 

100 

J2«l? 

0354 


CAIL aSS|G\(I0,«TII') 

0355 


«LI‘iL«5 

0056 

13? 

IPei 

0357 


^PE^i(uM^«7.^NAMEt•C300.1JFJ6LDS.TnP^ACCESS■♦S6QU|NTIAL 

•TVPE»*)\<<N.»**9»,«gC'!Pr»SI?E*t5,F?RM#*UMF0RHATTEO») 

0553 


•''E4Li(7#6''0f4ng,e9P«49C> .^FWD 

0059 


If t» * FLO,EtJ.O) 6 ' T0 490 

00»u 


CALL CSGPPMdLMP, »MEUU DrFiNineN PE«»0PT ».24) 

0061 


-PITPlUtinoP) 

0062 

too j 

r,?9»i.9Tf» FI ELD/ 1ST 2' 3 3RD 4TH 5TH 6TH 

XTH 9''’h IOTM ♦) 

0063 


^«ITKCl>il901) 

0C64 

ic:n 

type ’.iri(* v'tPTx*)) 

0065 


(I 

0866 

10"? 

F •« aT( * • > 

0067 


ICvTsi 

0C6t> 


f/i 29 -1 l*l,,vJ’.fLt' 

006y 


If nC vT.GT,MLI''p) GL T? 90- 

OC70 

r>r;o 

ivf- AP(7) FL9.\i»M.LAl.^f.L,:iY, ((.;yTX<Wi«)i J*l.2».K»l,MAAV) 

0071 


if<l‘«;‘;l*Eu',-i) tvp(?)«D’ 

0072 


IF(L*»f;L*£C.-?> TVP(?)*DU 

057.5 


^V‘ j9q J*1,».AXV 

0074 


n/: J9e K*l,2 

0075 


VF^T' X<4, J)«ItJYTMP| VTXfK.wH 

0076 

19>’ 

C0* Tif I'E 

0077 

199 

C2' TI\»j£ 

0076 


>FITk ( rA,1003) FLD' A^-, < VERTEX C?|K).K«1,NV*1) 

007y 

1093 

K ’yiT<» ’|352,» |.Ir.e»»l0l6» 

OOfO 


-PIT* ( I,' » 1904) TVP,(vrWTEX<li'')*‘<«l*\V-l) 

OOPl 

IQ94 

f,.,Bvur(* »,342*’ FJXL'»luI6) 

0CP2 


>iWITt(l.'.l''02) 

0063 


K' iT»lC» T*i 

0064 

20 0 

CiViTl-i'.iF 

0065 


vJRlT=nD,in09) 

0066 

10«9 

fflPNATi* 6MB 3F '^LF.li^T ,0 

OOP? 

201 

C6VtI,vUE 

O0P5 


‘;L'*Sr(UMT«l *) 

0049 


CL/SP(>.'NIT67) 

0390 - 

?Cl’ 

U*? 

0C91 


CALL cLAPSEUn 

0C92 

309 

CAIL :X’JTPUT(7) 

0093 


>'«irHlD,1007) 


7TH 


a*i 


I imn lilt I iTi 


" I 1 1 II niirrTiirtliii 




reRTAAN IV-PlUS V02«04 12IS4I5S ?9«AU6«77 RAQE 3 

-fUDRPTtrn; /TPiRL0CJtS/*«R . 

0094 1C07 r«lRHATC«t (R)ESTART PR E(X){Tf>M 

0099 READ<lOiiOO«) Qgy 

0096 tF(DEv*EO,*R*) 6» 1 

0097 IF(DEytNE.'X*} Q? T9 300 

0096 include *C300,33rA««SAV6,tNRA 


0099 

# 

-• • - 

tMkl laliN AMS* *1300 1 1 3gL?P|Ii • TMPI 1 BRMl* UNF0RHATT6O • 1 

1 TVpEi*UNKN0WN»»PHR«9999) 

otoo 

• 


W^ITEIIJCI 

0101 

• 


WRITE(1)C2 

0102 

# 


mRiT6(1)C3 

0103 

• 


i-9!TE<1)C4 

0104 

• 


4PITc(1)C9 

0105 

« 


Ci. »Sc<U>'lT«l) 

0106 

# 


31 * Tj? 9991 

0107 

• 

9909 

TVDf. 9990 

0104 

• 

9999 

P' ««aT(1X,»?PFJ. FaILJOE e» C3OC.13GL0PAL.TMP— NP RESTART! ) 

010$ 

# 

9991 

C'vTlVUE 

Olio 



CA'L SfeTPF<54) 

0111 



ST V 

Oil? 


9cn 

!F(I ,r>T,9)6-^ Ti VP2 

0113 



-RlTt-dO.lOOP) 

0114 


icrsa 


Oll‘> 



Sd T'’ 901 

C116 


9C*> 

CP" T I 'ii-'e 

0117 



call ;‘CtPJT(7) 

Oils 




0119 


1 C'li? 

r,APv.AT( 'SfcMTcfl P*GE rZRLAMP,"RP F^^» restart PR •, 




F"W 6 XIT>») 

Oi?j 



RGAC( ID.1CP6) PE>.' 

ci?l 


i(i :,6 

ri,)=-AT< Ai ) 

n?i 



fF(l.trV.^^, 'F* ) (, T » ?• 1 

PI? 3 


«01. 

CALI. r.'-'TPUTC^T.l-) 

01 << 



CALL cSanP.4(l,«.IP. 'Flt'.D I'PM WTI?!' REP0RT *.24) 

01 ?p 



-ritf ( lia.iorjo) 

Ol?ft 



•|RITL( 13,1001) 

01?7 



IC -Teo 

Ol?S 



/'STT’r t l/.iriu2) 

0129 



•••i T7 5 OP 

013P 


400 

•;<trF(Ip.l > 10 ) 

0131 


iOtJ 

F0;/.-AT(' FTtLD UEFTAl Ttif I'lLt fcMPTV *) 

0132 



ilfci T'* 

Pl33 








20. FIELD DEFINITION REPORT FLDRPT 


A flow chart of this program can ba found in volume 1« 
page 3«279. 




WOB IS 
Of POOR QOAtnv 


PERMANENT DATA BASE UPDATE 


•ekus \i^zzii. ... 

/TR|SL?CkS/wR 


l2|??»8l 2S»AUa»77 


PA66 1 


pe&ma.nent data Base update 


implicit IK'tEGEB <A-W) 

INCLi'Dt *STlC3C0,33i;AMSC^N'^N, ivC* 

IKCLtnE *SVlC300«31CAMSPARtP,I^'C« 

PA-:^AKFTPR MAXCAT»60,HAXS"8a6i>»f*AJ(CHN«4«NPlX»t96.NLINm7#PAXrLD«90 
l*MAXV«lltNDSTSa299.CLSKIPslO*OSSKtPalO*NAXACO«6tHAXACCti4i 
2NJ9SPW0*6» N’OTWDal u 

EQUjVALgi'^Cl' (Ci.AC’’ATE)«(C?*ISP6)*(C3fPrLA(n.(C4(Txi)*(C9«01SKt0) 

INrgfic- Cl(4A9),C2(254)|Cd(7U,C4C348),C9(429) 

IMTERE-^ AC'lAT6,SUeiCAT,5U‘^P -H,CiTKAT»CATTH 

PYTg cMMV6r,N(aCHAM.>'PSU9,C ‘TCATiOetCLU 

CP^4?l4/CT-M^/ACr<ATi:-(2<*iAXACr)«Cu»VEClMAXCHN«MAXACC).N0CHAN,N0SUR* 
lSU^CAT(MAXRJ«),SUcPeP(MAXS «I»C*TKmT(MAXCaT|,CATTH<MAXCAT),N 0DR* 
2N|(»Djf \ iTH,ri(}TCAT('\''»*TS)#Dii'»CLU('VDeTS> 


IN TEH 
IN^SG 
'TYTc 

^YTg 

CLMM'* 

tSU^EU 

2D3T0A 

3PDAT5 

4 


ADAT5S.SUN»2,Ar>ALST,PLDCAr.D3Tf>AV,PDATei,TOATEl 
€T Pa\Tfi2,TPATf?,P3Atn3.TnATi3#CATNAM,DISKI9,RAND0H»GRlO 
i;*rL^L'?*''0AC<3.'J/lLSR,SJNEL,N9TART,vTYPEl,ALP»ALP*' 
PCTCT,PCT"T'>» VAR, VARta.DLAflfcL. TYPE 

//rrM2/IS=G,Df lPLG|‘ ^ iCO» aCATESC2,MAXACR)#S0IlGRIMAXACD), 

( ^AXAClJI.-iU^A^IMAXACO'tlMnATElSJ.ANALSTlSI.FLllOAYIgl, 

Y(T>»'STA‘5T.i*TYPt:l,PD'TPl(2),TDAT6l<2>,PDATE2<2),TDATE2(2). 
3(2),T0 ATc3<2' i^'T'CAT.CaTNa^CKAXCATJ, aLP<MAXCATI#ALP0» 
PCTCT(mavCAT),PCTCT 2, VAR(HAXCAT),VAfi0 


lNTF5r« EFLAOl.grL .G?,EFLAr;3,ferUA6A|Pn.A65,UFLA61»uFl-AG2»urLA63, 
lUrLA'*^4 

INTRr.ptJ PF|.AG,?'SKh^T 

Ce iM' ;/C?’MA/PFLA",'>S'< VJT.cflAGuFf LAG2,ErLAG3,ErLAfi4»ErLA65»urLAQl 
1,UFLAG2,UFLAG3,‘JFL4G4, MfcWL vPlf^XStR) 


INTEGER Txi , TY 1 ,TX-:,TY?,AC' ISP 
Ii^T 6C-:R SP lvu,GlA .vn,CLu- D 
C0«M?.y(:PM4/TXl,TYl ,TX?,TV;:, fX 
lR(4),,iTRlN’>l?, ;y''T JL),‘;P- I 0(5 
2O("TA'’vrv30TS),*,?<l 

Ck!i-'M'>x/c(’M 5/DISKIC.RAN''.M'( ■O-’T 
lTYOg(*''13TS),RE:L.;L 
Cli iM ■ ,'/L-«C'L/FlL*'A .<1S),PI! TYP 
ni“£-Sl<aN A(A),SFG 'S(2) 
real X1.X2,X3 
3Y_TE 

4(74> 

L0C.I1:aL» 1 SeGL ’'G<4>,2R M?) 
PQI IVauE-JCF (SE^ .(t (t),SEGl,^G 
data 2«a/'o*,*Dv 
data FlLTYB/2HfA,2nM,2M4P,2up 

• ?H<;T,?HCLi2HUSt2wPS,?HTA.2MT 

• 2hl.D^ 

Data rlL'^Av/?Hoa,2f*?i ,2HC3,2M0 

• 2H ,2H, ,2H ,2w|l,''/ 


,G,6,OTwIMn,n0tARY»6HlN,C.MAX,FML 

< P tvt« IX2,lY?,ArDlSP(2)i m(4),G(4), 
, \3SPW0», 14»(IN'^<4),NJMO0T» 
7),CLAwMn(9)«CLUiilNDO) 
RI.GRID(N0J'TS»,DLA9ElIN0«TSJ, 

(23),K,JULI0 


G#?hLA,2MST,?MCL,2HAS.2HPC»2MLU. 

T»2hST,2MAT,?HnD,2H0T#2HSF,2HIE, 

Oi2H.3,2m09.2MT ,2R «2M i2M • 


3 <3 p» 




12I59IS1 2V«AU0«77 


PA6E 2 


ri»RT(»AN lV*t»LUS V02*04 _ 

PR«UPO.fTii , ./t8l9L0CKS^If»R 
0080 ~ 101 70RNAT (2A0) 

0033 102 F0RMAmHO,4*i'T!>»TAL ELAPS60 Tl»<E • •iJ2tU*it2»*t*0t2) 

0034 105 F0RHAT (74A1) 

0035 113 FERMATtl^tO.SAA.'nATE • . 12i •/* # I2i V • 12) 

C336 111 F0Rf4AT(lHO,SOX,*TlMk '.4A2) 

0C37 112 FORMATdHO.ieXjtpERKAflENT TATA BASE UPOATE/VFRSI0N *♦ 

• •►•AY 31*1977«> 

0030 ur F0P(iATCmo* 'Y0U tPB a6'*ut Tg ImitIaTE An UPDATE T0 THE S 

• ’PFrkaHEnt data fAse FIL^s*) 

0C35 114 F0R,mAt(iHo, tTHEHe >^'AVb 0FE ' <.PDaTBS T0 THE OOT FlUB », 

• TI'PPjG TmIS SESSIP<i.'» 

0C4C 31? F3^KAT<lH|* *P0 YPU KISH T0 (F)i;HCE AN 3FF L0AO 0F THE », 

• ♦n»'T data pile? >‘) 

0C41 Ilf F0^»hAT(lHO,‘THERe iriAVB BEE v'P hPDaTES T« THE FIELDS FILE •$ 

• *Dl;41'.R THIS SESSIP.*,*) 

0042 117 F£RMAmH«.*C0 Y?U r:iSH T2 {F)7HCE AN RFF L0AO 0F THE •, 

• •PlPLoS file? >•) 

0044 lie F0eKAT(lHSi’"0 Y"*U WlS*^ TS (C>'TNTlNUE «R E(X)|T? >*) 

0544 114 F07MATC/' pREMATURc EXIT 1 . THC IMTIALISATIPN PR0gRAH»«OATA BASE UPO- 


0C<5 

0046 

0C47 

0C46 

r049 

00*50 

OCbl 

OC*>i 

0C*»3 

0554 

0C55 

r.?.5f 

0C67 

fl05c. 

0C59 

OOAO 

0061 

0C62 

0063 

0C64 

0365 

0066 

0C^7 

0566 

0360 

0073 
0571 
0072 

0074 
0074 

0076 

0076 

0077 
037d 
0079 
00^0 


1T£ NfT allowed*/) 

15- F2RmAT(14) 

M«l 

*^AU ifLAPScni) 
i"ALL ASSia^ClO.'GPr > 

CALL .“.tPuT(27,1?) 

<^ALL I^aTE(I,J,( 0 
TYPE 110»I»J.K 
CALL T!yL(A) 

TYPE HI. A 
TYPE 112 

IF( ISHC.i^c.OlB:' Tv < 

TVPfc 319 
i'.J T' 2-2 
4 TyPc 113 
Tvpfe na 
ACCENT l ‘5,»k 
CALI P«3 •T(ii.,74) 

IFC'.vCi) .tr;, »x*) r,.i T" -jo? 

IF(<( 1 > .to, »CM C3 T"* ' 

■'>.5 T"' 4 

•5 CALL J”LlAM(K, I,J, jvl I'’) 

KNCuJiP (4»150»SPOWiel !bt- 

nw o r«i,4 

tFIS'.;tp-(E) .fQ. • •> S) BLF"{E)«2ie(l) 

* 3?'Tl.'OE 

Call S .'J>STR(Sfe4*4«,l»4|FlL JAail4»4) 

IF(UFLA'J3 ,E3, 1) r,i TC 13 

TYPb 114 

TYPE 115 

ACCEPT lOb.K 

CALL t^.’i'^T(ta,74) 

IFO^d) ,NE, 'F*> T' 7'J 

■)FLa34»1 

CALL D^TSAV 

UFL4Cv<»3 

'jX T^’ ?0 


'Ji 


ax' 




IdLOOUT VRAm 


resTRAN 

PPMUPO* 

0081 

0002 

0003 

0084 

ooos 

OQOO 

0047 

004A 

0C09 

oc«r 

0091 

0092 

0003 

0004 
0095 
0CO6 
0097 
0099 

0099 

0100 
ClOl 
010? 

0103 

0104 

0105 

0106 
0107 
OlOt* 
0109 

one 

0111 

0112 

0113 

0114 

0115 

0116 


12155131 29»au0*77 
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.8Q|0) 60 T0 42 


1V*PlU$ V02*04 

/TP i PLgCKgyWP _ 
ir CAUL UOTSAV 

2? ir(ePL*ft1 «E0. 0) 00 T«! 40 
tP(UFLA62 .EQ« 1) 60 T0 SO 
TYPE 118 
TYPE 117 

-iCC£PJ..jJ3ai( _ ... 

CALL rR2NT{'4,74) 

17(4(1) *NEi TM Ttt 40 
'JFLAC2*! 

Call flosaw 

•JFLAfi?«0 

_ .G.- '•0 

S'* CALL FLDSAV 

4'' 1F(£^*LA6i ,E3, y ferUAG? 

ir(PCLA8 ,N!6, 0) Gil TP 41 
CALL CUASAV 
05 T? 42 

41 IF CjjFL AQl ,60, 1> CALL ClASAV 

42 IF(6Pl*G? .EO, 0) R0 T.' 44 

IF(PFlAG 0) 5^ T3 4t 

CALL STaSAV 
G5 T. 44 

4.t IF(ljfLAG4 ,61, 1) CALL STASAV 
44 Call aolpst 

'’Pb4('.'' lT«i ,VAMgt« on I C3no,jno '3 IRPlLfe.DAT *,TYPG«»(JL0», 
• •'AXH''n*2''0» ACC?S<?»'niRECl • ,NEC'^RnSl26«128) 

Vrtlfn n»4Ecu:’C) C2 
CLTSt:( ivlT«l,DISPk59s3»94»/E' ) 

?0i CAt.u L'CT'ib' (S60N'*, I,J,K,F1 i.TYP,A) 

11*4* 

CAl 1. aLAPS<:( 1 1 ) 

TY‘*c 118 
ACrt^T l-'iS,*. 

Call r»5'’T(H,74) 

CALL 3tT£r(51) 

SI B \ 















OUii.lisAL PAGC IS 
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f CtMBV \ 
/wt TW dMTfr N 

^ i 

\ t08n / 


1 


(6*S« Uf^mU 

\ r« f<*» ^nLP / 

\ r^i4»r<i4 / 


6W>s, 
'Jhf'l Uf4al*9 to 
\JP» 0UCh'<Sc4r« 


/ CtHAWV \ 
y^fycrffceitfCT^y \ 

|/41|lf4fA4. 

\ft(/W / 

\ 0*f4 dait / 


/P^!JS$a \ 
^T* aaLCulmlt 
\r,*.« Onfior/ 
\ Tc<rtn«»»«i / 


^F-X*S <I*itvf»*Uv 


^ srojffv \ 

/n«y« rH« iMulieS ' 

Uf.Lt i« i»*4. 

\ DOTH 

\ Q*si / 


XD 


^ yl4rt 

OU 

V JWf . 


(•wTivo^'a^ 
fc4lW V*^M/«vj c»l 


UfdoY#} f9 
^\t*t0$ii^r*sVQS 


r:r>i ; r 
\ Sr-^j'/>LC 


i#s y*<*SroTiificr\ 

iSrfp. t# UTHC 

W'lin #h; 0$il8J 

\ bwi^ / 



&eB fv^4/r fiUft 

^0. cr- 


'' Ketuititf to >L 

Cootttoi, 


Olfreji 

/ / 

/ •tehrilc 

j CJ 7c0ir#cr#fy / 

\ f.u 1 

\«e4«iMiM \ 

fiu 


33 / 


21.1 8DBH00T1MB 


rtttTR4f< IV.PluS V02-04 


FHMuPtf.FTN 

mi 
0002 
0303 
03C4 
0009 
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030& 

0007 

030 » 

OC09 

0C13 


OCll 

OCl? 

0013 

0014 

om 


C91A 

001 ; 

oci« 


031% 

OC?'-- 

og?i 


n:?? 

C3?3 

0C?4 

C32f 

0376 

0C77 

OC?f. 

o:?y 

003C 

0071 

ftC 3 ? 

t:u 

Ci74 

C3?4 

c: 7 / 

s:?t 


C* 


c» 


c* 


/T«irL?CK8/N0 
Sw'OifoTtME A0LF8T 
I«'»U:iT l^'TEOFR U-W» 

IMCLUOO '8VtC300*3lCAM8C7t^'4i.l%C* 
include '8VlC303tSlCAHSPARfr*tl\C* 

PARAMgTbR *»AXC«T«6l«*‘AXSUO*60*MAtfCMNa4tNP|Vtl9AtNLlNPU7*HAXPLOP90 
l,HAVVilU8DOTS«299.CLSN|PalO«P88KlP«iO|MAXACDPO<HAXACCa4« 
2'i23P>«0>5*N7DTk'^«10 

Eau}%ALE^CF (CltAC:-ATk)«tC?,ISf^M)«(CS,PFLA6)i(C4|TXl)#CC9,DlSKT0> 

I vrgSe'f Cl (449), R2rES6) iC3(7l),C4n4!t), 09(627} 


AcnATfc.a.isrAT.SU’P P.CaTKMiCATTm 
^^^VKC l'’l^^HA^,f !*SU6 ,L''TCat»02TCLU 


1 ./? 
J 0 < 
1 
1 

l'/‘ 
I-’’ 
ir = 
i'- 
ll 3 


t^TE? 

?YTE . . . 

3i?-.M'v/C^'Ml/ACnAtf (2.MAXAC-I.C »^VEC(1AXCHN.1AXACC),N0CHAN,N*SU'», 

1Sj'4!:M(.'AxSU»)»S^'‘-P/P(* AV6 -b)»(:*TKNT«HAXCAT),CATTHCMAXCAT},NPD'". 

2 '’Th,n^TtAT(A »TS}, <J'^CLL(’^DBTS} 

luTSCsf- A0AT6S,SUN-t,A'At.ST,FLnDAV,D0T3Ay,PDATei»TnAlEl 
IMSIV- POATPaiTPATrjjPUATI-J,! •AT63,CATN4M,0ISKlO,PAN04M»CPin 
4YTf •)'[ FL7,A p»CC»^ttLC8»J> Aru,ASTART, vTypPl|ALP»ALPO 
:)VTS Pf TCT,PCTf:TP,V4R,VA-'»,Dl.4«yL»TyP? 

Zi-'A ' 'C?H?/IS»r3.t- LPLP» '•.-'•CC,Ai.ATrS(2iMAXACn)»8'»lLGR(HAXAC0)» 
l5ovtL( AyA30},Su''Af (^•AXArc.),lyrATb(2}»ANALST(9>»FLnDAy(2>» 
2L)kiT3«y(i>, jSTavt.' »vp6i,oc*tp1(4},T0aTEI(2}|PDaT 62(2)»T0ATF?(2), 
jP0AT*;M7)»yCAT'?3««’)»' ^C4T#'*AT^ *» (PAXi;AT}iALP(HAXCAT)»ALP0» 

4 PCTCT(MAa)T),PCTCTi!,,V4R(MAXCAT),VARP 

tFl Ari,fcFt/>' 2,t Fl A ,^,r.PuAC4#6FLA09# UFLAC1 ,lif LAI»2»UFLA61» 

1 JfLA‘fi 

HTt':?’’ pfi.aO, T 

-/ >• /,r> </PrLA‘‘, T,kCL4Gl»F^LA12,ErLAG^,EFLAR4iEFLAG5,UFl A81 

;7,i'fi.Ari,t!ri.- JA.'F -LMsfrAASL®) 

I'.r^ TXi,TYl,Txr,TV?, •C' I«P.u,t ,C^i»lNP,r!eTARY,G«IP.GPAX,FUL 
iNU.». sp-i'-r.ci-A . r,'*L' D 

r * ' /r^'»«4/TAl,T>i TY1 »1X2, 1Y7,AC0ISP(2)»II1C4),C(4}, 

Ir (-8 ) , T .l\' ('•,' , jry • ), 1 D(0, , iMwiNr(4}»MjPnFT, 

f M-> ( TATS), ' Ml .1. A''* Pc (?»?) .Cl 4'^'^t'Cf>)iCLUWNP(P} 
r, /c'^7/’'I«KrJ.'’A .* ’ •( D''Ys> .GPl9(r D7Y<},DLAPeL<Np/TS}, 
iTvi* ( v,8Ts),v 

<> ' /i/CiL/FlL' A <1P).F|! YVP( V7)»'<,j!tL!P 
L/*.l'.L*l -(Ti!) 

•; T (sO*!) 

’'EU.^L ft a* SPGMgAjT HAS N*T BEpA- SET*} 

f . f JH*, *ri, Yit Ti' (S)iT The UFLSTP FLAG MHY >*> 

)V HIT ( !2) 

f suT A dtl'Yp flag at this TINF»> 

F-^-VAT (IH*, M.-.PuT /uf,.t*SITfa . ‘ wMbfeW TF 'Ig DFLEYPP >M 

r?i'^M/>T( jho,»aC3uisiT!;- ■ u ‘'PH 17 7uysiDP legal PanCE*} 

P^A^4T(iwO,lfX,li.*,M*,2T3) 

f .'I'Jf AT<lH0,»THF •w'K'tSnja'' nATfeP PLlGlOLb Fa« RFLtTION ARElM 
If(ri{;iF;,G ,GF, 1 ,f , n 
Ur otr.n ,uj, 3 > 

IF 'iOZ ,li, 9) G • T,- 1? 

• TVOg 

iJ T ‘ 13 
; TYOt 1':7 


LPLG ,tE, 6 ) RFTI'R« 


OWGINAL PAGE fo 
Of POOE QDAury 


3 >< 3 ^ 


ORIGINAL RAGE IS 
OF POOR QUALITY 


fBRTRAM IV-RI.U8 V82-oV ?*«AUQ«77 

pfiHuPOinN ^iFiBifcas/ta . 

0043 ACCEPT 1O9.C0NT 

004t |F(C8 nT.8E.I .an". C«nT .tE.A) 8» Tl 10 

0042 TYPg 108 

0043 6V TP 9 

0044 12 TYPE 103 

0C4S .TY2£.APJ — -- - * - 

0046 ACCEPT 102.m 

0047 CAUL FPaNT(Wi2D) 

0048 IF<W(D .NF. 'SM-vETUPN 

0049 13 TYPE 1X0 

0090 oe 11 J«i.»ei»cc 

0051 lJt££_lPA.Oj 1A0ATES(I|J)|1I1|2^ 

CC92 11 Ca^TIwU6 

C05J *39 T» 9 

0094 ir DELFL3«Ck’NT 

C055 return 

009t EnO 


PAOi • 









21.2 SUB800TXMB JULIAN | 

P0RTRAN IV-PluS V02-04 l2l59|S7' ?9«AU6*77 

PRMUPD.FTN /TR|8l«CKS/WR . 

OOOi 

SU8R9uT|N 6 mUM(VR«M0«DY,JULI0) 

0002 

IMPUICIT INTEGfR U-l) 

C003 

DlMENSleR C0 IvT4B(12) 

0004 

C0NTAB<1)«O 

0005 

G0NTAB<2>b31 

0000 

CBNTAfl(3)«60 

0007 

C0NTA8(4)a91 

0008 

C0NT4B<5)al21 

0009 

C0NTAa(6)ai52 

0010 

C0NTAd(7)al62 

0011 

CBNTAd(3)a2l3 

0012 

C0MTA3<9)*211> - . 

0C13 

(?a^'TA9(l0)■274 

0014 

C0MT«a(il}a3O5 

0015 

C0MTA8<i2)a33S 

0016 

JMLl0aC0NTA8(Mt!)*nv 

0017 

XXaYR«1990 

oct$ 

YY*XX-( (XX/4)*4) 

0C19 

IFCYV.IT.O) jjU0ajULI^«i 

0020 

return 

0021 

END 


i \gbis 

Ob' 


21.2 SOBROOTINB JOLIAM 

A flow Chart for this subroutine is not available. 


* ♦ 





21.3 SOBHOOTIME DOT8AV | 


0 & page is 
'* took QBalitv 


rai»TR4N IV-PLUS V02.04 '12156100 29 «au8»77 

0001 SUOftOuTlNE OBTS 


PA8E IS 


0002 

0003 

0004 

0005 


0006 

0007 


SUOftOuTpi obtsav 

IBPilClL lyiBfiSS (A*M) , 

INCUUOE 'SVlC300i3]CAHSCO^ODttlM6^» 

INCLUO ^ ' 8V | C3O0i30C * HSPARi ^ M «|! l8 < 

Parameter HAXCAT*6'1(»*AXSU6a60fMAXCHNa4»NPlX»196«NLlN«117|HAXPLO«50 
i.hAXVali.NOgTS«209 .DL8KlPtlOAD5SKlPalO.M4X4COa6«MAXACCa4» . . 
2N0SPWD«6*NC*OTWD«1O 

SOAiJVAWENCF (]; i , ACnATE )|( e7itSEQ )»( C3 * PrLA0 ) A ( C4im )|( C9 * 0tSKt0 ) 
INTEGER C1(469)iC2(296)|C3(71).C4(340)»C5(629) 


0008 • 

0009 .• 

0010 • 


iNTEOBP ACDATE,SUSrAT,SU3P^P,CATKMiCATTH 

. Stlfi _ XHIiVEC4N0fiHAN , N35UExD ': TCAT » P2TCtU 

C0MH?M/eOMl/ACD/.TE(2*HAXACC)*CM>\VEC(HAXCHN*MAXACC).NOCHAN|N0SUR. 

lSURCAT(MAXSU9)fSU8P0P(MAX$iJB)iCATKNlT(NAXCAT)|CAtTH(HAXCAT)«N0OP* 

2Nl0OU.N'^TH,D0TCAT(Nr0TS)iD9TCLU(N!)0TS) 


C* 


0011 


oou 


OOli 

0014 


0C18 


INTEGEi^ AOATESiSUNA2.A\ALSt|PLPCAY«O0TnAV*POATEliTOATEl 
.. I >: TiC6R . POATPij . tDAt62 » PD * T £ 3jTrATE3iCATNA { iiD !$ K | O , RANO0M»eRID 
BYTE OF.LfLG•^'0ACQ•'?0ILGR.S!'^£L.^START,^!TVpEl.ALP»ALP* 

3YTE P'?TCT,PCTRTP» VAR, VAPB.DlAuPL# TYPE 

C0MHP ^/ C " HP / ISEG ,^<= UPLGt ^' i ;^ Cn * AtATES (^* HAXACD )* SPtl6R ( NAXACD )« 
lSUNE|.(’«AXACO),SUNA?(MAXACDlt lPnATfc(2)»ANAu9T(5)«FL0DAV(2)* 
2Dk:TnAY(2).‘ START,-VTVPei,PDf.TTl(2>,rDATEl<2)»PDATE2(2),T0ATE2(2). 
4PJ ^ AT53 ( 2 ^ T0 ^ TF - 3 ( 2 ) l ^? PAT ,: AT ^^^'( hAXCAT )» ALP < MAXCAT )♦ AUP4 | 

4 OCTCT(MAXCAT) jPCTCre. VAR(MAXCAT),VAR« 


C* 


0C16 

0017 

0C16 


lurijGPh' EFUAGl.EPlAG?,rfLAri3.EFtAG4tEFLAG9*UPLA61,oFUAG2«UFl.A63. 
ICfLAPA 

lUTECi :« PFLAGfGSKM *! 

Cii"‘iH«.\/c?'»<3/PFLAR,’'SKMMT,ErUAGi . FFtA62,£FLAG3,FFLA64»EFl.AG5,UFLA0l 
l « L < rLA6 ^,‘.'^' l . AR3 , UPL ^ 6A »■- fc '' L ^ Bt ^■.\ ASUP ) 


0019 

00?u 

00?1 


00?2 

0023 

0024 

0025 

0026 
0027 
0026 
CC29 

0030 

0031 

0032 
0C33 

0034 

0035 
PC36 
0037 


in teger Txi.TY 1,TXP,TY2, ACniSP,O,fe,DT*IINO,O0TARY,6MlN,GHAX.FUL 

IMEGfeP SP.<;1 *iD,CLAI'ImO,CLUW- D 

>1i’\/c0N4/TXl,TYl ,TX'2,TV?, IX 1 , lYli 1X2, IY2, ACnlSP(2>, 1 11(4),6(4), 
1P(A) ,r.T«lNn(b, :0DT jD ,SPVI neb, iOSPWO), I*^W1NP(4»,NIJMO0T» 
2D0TAPYUP(«TS),GMlM.aN-AX,Fiii.(2,7),CLAWNn(8),CLUPNOC8) 
C0>'Ni«N/c2M4/PlSKIC.RAM)aM( o»Ts),GRID(ND!*TS),DLA 0EUND0T$), 
lTYPE(.\,i:aTS),PfcrLPC 

Ci‘MM?m/lJCAL/F tL^iA' (15 ),FIlTYP( 23) ,K, Ji'UIP 
Lan.ICAL*! RUFri(S2),W(30) 

Format • ,2I4,212./i6(*13,214)) 

51 ra»MAT(lW0, 'THf- CUPRE 'iT vu *SFR START|mg VFCT0RS iS »,I3) 

<9? r;-»MAT{lH$, *nc YPU k-lSH Ta (‘i) >l3irY THIS VALUE? >•) 

53 FfRMATllHS. • ! nPUT N'Ew STARTpiG VECT0R VALUE >*) 

5<t FC’HAT<|4) 

5«i Fi''<«iAT(20Al) 

<>.< F;^wi<a t(iho, tSTNRTl VG VECTt-'R VAL^E IS BUT 0F RANGE*) 
tOi FPRhAT<iNo,« file *.14A2,* hID ^PT TRANSFER SUCCESSFULLY*) 
.VfN(L.^'lT«i,vAHE«iRYniC3a0,l3D7Ts,TMP»,ACCES8a*DIRECT*, 

• TYPg « i0Lr >' iUAX « En « N0 .'’ TS , 76A0v ? NLY , REC > PR3SI2E '» l3 ) 

HEC'”'*! 

CALL RUBSTP<F1lTVP. 1,3,F1L Ai-jpA.S) 

CAL.L SUBSTR(FILTY^3T|5,FI, NAM, 18,5) 
.iPEN(U^ltt7,NAME«FILNA'',ACrESS«»OlRECT»,MAXREC«Nb0tS» 

• REf0ROSlHE « lv3 , TYPfe«'UNKN ) 


':^ 3 ? 


rtATRAN tv 

PRMURDi^TN 

0038 

0039 

0040 

0041 

0042 
.664} 

0044 

004$ 

0046 

0047 

0048 

0049 

0090 

0091 

0092 
0393 
0094 

0059 

0096 

0097 
0096 
C059 

0060 
0061 
0062 

0063 

0064 
0069 
0066 
0067 
0066 


iPLUS V09»04 

^Fl6L0C&SZMfi 


12196100 29«AU6*77 


99 


riNO (i*RscN0) 

RE4D(1'RECN0) RUFFi 
BUFF1(3)«TVP6(RECN0) 

BUFFI (4 ) ■OLA8EL(R6CN0) 

WRITE (7'RECNe*ERR«9«) 8UFri 

I FtRECWg »6 T^ 208) GP.TiUt-— . 

RECNBaRECNR^l 

QB Tft I 

DfTDAYllNW 

D0TO4Y<2>«JULIR 

type 91.'«S7ART 

TyP£.52 . _ 

ACCEPT 99, VI 
CALL FPi3NTCW|20I 

.N6, **1*) S0 TR 5 

type 93 

ACCEPT 5AiC0wT 

IF(CR.NT ♦QE. 210 .?R‘. CRmT. ,Lf . 0) G« T0 4 

aSTART ■ CPNT 

GB TP 5 

type 56 

GB TP 3 

CALL UNLD0T 

CLPSE(UiilTfl) 

CfSECONlTpT.CISPfPEi’SAYEn 

return 

-!RlTfea0.l''O) (F!LAAM(P),P«1,14) 
CLBSF(1*'>IT*D 

close (i‘NlT«7ilitSP«)5SE««nELETE*) 

RETURr, 

END 
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'21.4 SUBROOTINE PLD8AV T 

reRTRAN IVaPLJS V02«04 IJ’iSj^UO ?9iAUO»77 RAOE 17 

— ERMUPDifllil <>Te.AaLgC!iS^l!lg 

0001 SURROuTtNE PLOSAV 

0002 IHEUCIT INTEGER 

0003 INCLUDE *SVIC3OO«33CAnSCOM0N, InC' 

. 0004 • INCLUDE 'SV|C3gQ«9]CAM$PARAH^lNS* 

0005 • PARAHgTER MAyCATi60*PAXSUB«40iHAyCHN«4|NPI)(«l9A|NLtN*ll7|MAXPLOR90 

• i»MAXV«ll«NDaTS«2C9.DL SKlP. 10.DSSKIP »10.MAXACDi4iMAXACC»4« 

• 2NaSPVO«6«N20TWDil0 

0006 • _ E0giVAL&NCE_tGliAC0ATE)|(C2iJSE6)i(C3*PrLA6)i(C4iTXl>*CC9«DtSKID) 

0007 • INTEGER Ci(469)(C2(2S6) |C3(71).C4(349) fC9(629) 

• C* 

0008 • integer AC0ATE»SU8CAT.SU3P'R|C«TkNT«CATTH 

_JU09 • 9 Y JE .CH \ VECjilgCHAJi«l!<PSUfl«OrT(;ATiPgTCLU 

0010 • C0MHRN/CeMl/ACOATE(2tMAXACC)*CHNVEC(HAXCHN.MAXACC}«N>CHANtNeSUB* 

• lSUECAT(jl*XSUP)iS<Jep;R(MAXSt<B)tCATKNT(MAXeAT)iCATTH(NAXCAT),N0DP* 

• 2^>iaDU.\ZTN*D0TCAT(NnPTS)|Di9TCLU(NDeTS) 

• C* 

0011 • INTEGER ADATES.SUNAP.ANALSTfrLODAY.DPTDAV.POATEltTOATEl 

0012 • INTE G ER PDAT E2.T0ATbg.PD 4TE3.T PATE3«CATNAH.DISK|D»RAND8Ki6R|P 

0013 • byte oELfL3»M0AC(3iSMLS«,SUNFL,NSTARTiNTYPEl,ALP»ALPO 

00|4 • RYTE PCTCT,PCTCTP»VaP,VAR0.OLAG»:LiTYPE 

0015 • CPHM?N/cPNP/ISFG.DCLrL''«N2ACCiACATES(2*HAXAC9)iSPlLQR(NAXAC0)» 

• ISUNEU^aXacD)»SUNAH(maXACD), IMpATE(2».ANALSTC9).PL00AY(2J. 

• 2Dk!TDAv(?),'jST4RT,ntypE1|P0aTE1(2),TDATEIC2).pDATE2C2)»T0ATE2*2I. 

•_ 3PDATE 3( 2).TD AT53(2>»f.aCATiCATNA*<(>«AXCAT).ALP<NAXCAT)»ALPgf 

• 4 PCTCT(MA)fCAT)»PCtcf0, VAR(MAXCAT).VARP 

• C« _ 

0C16 • Integer BPLA61.EPLA62.ErLAr>3«EPLA&4|ErLA95.urLAGl(!jri.AG2fUrLA63* 

• JUFLAG4 

0017 • integer PrLAQ.nSKM‘,T 

0ai8 J» CeMM9!M/c0M3/ PFL*r..''S><M:'!T.ErLAGi.SrLAG2.EFLAG3.ErLA64«ErLA69«UFLA6l 

• 1»UFLA62»UFlaG3#UFL<'G4,\‘£WLa8(PAXSUB) 

• C» 

0019 • INteCE'R Txi,TY1,TX?,Ty2i ACftlSP.fi, t,DTWlNO,D0TARY*QHlN,QMAX«FUL 

0C20 • INTEGEP SPwIND.CLa.ND.CLUM' D 

0021 • CBMMP‘i/C0*14/TXi,TYi,fX2|TY’.MXi • I Y1 » I X2. t Y2i ACDISP(2) * 1 11 (4) ,Q(4) * 

• iRIAj.DTwlNrXS.MatJT-'DIiSPwI vOIS.NaSPKP). IMW1ND(4)#NUHO0 Ti 

• '■ 2O0TA?Y(ND0TS)iSHtN.G>«*AX|F'JL(2i7} ,CLAWNb(6)«ClUWN0(8) 

0022 • C8MM5f\/cPMS/nlSKID.PAN!)0M{'iO7'Ts»iGRlD(ND8TS),DLABBLCNORT$)» 

• ltvPE<r>.n0tS),SECL*i: 

0023 G//imP\j/lBCaL/FILNA:‘115>»'Ii.TYP(23),X,JUL10 

0024 D1MENSI3N purrxas) 

0025 10-! FgRMATtiHQ, t i,^4A2,' DID >MPT TRANSFER SUCCESSFULLY* ) 

0026 1PP\(u'''lTiiVNA'^Ei'»SYCrC350,13FIkLDSiYMpi,ACCES8«*SEOOENTlAL*# 

• TYPg«*0LD* ,HAXRfc?'tMAXFLD,R5AO0NLY|F0RM«»UNP0RMATTBO* ) 

0027 CALL SUBStR(FlLTYp.l,3,FIf A'',24,3) 

0028 CALL SU8STRCFILTYP,42,5,rlL^A^',ie,5) 

0029 OPEN ( UNI 7«7,NAME«FiLNAM#ACcE5St • sequential* I TYPB«*UNKN0HNf, 
• HAxRcC»HAX FLD.F«iRM«*uviF''RMATtED * ) 

0030' read (1,5rRb99) mFi'D' ' 

0031 IFCnFlO ,E0, 0) TB 6 

0032 ' WRiTF (7»ERR»99) NFIT 

0033 D0 10 Itl.MFLD 

0034 read Cl) BDFFX 

0035 _ WRITE (7»ERR «99) Bi'FFX 

0036 in continue 

0037 FLDDAy(1>» K 


ORIGINAL PAGE IS 
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_EFHUPfi.FTll ^lailLlfiKS/t-P - 


0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 
0P47 
0340 
C049 
PC^O 
o;?i 
0052 


-fU0O4Y<2.l9 JULI0 
CUiS6(UNlT41) 

CL0S£(UDliT47«OISPesEi* SAVED — 
CAU PUDPFf 

. RfeTURM 

99 ^RtTEdOflOO) (FllNAM(P)*Palil4) 

close 

CL0$e(U!gtTi7|0ISPPSE«'DELETE< ) 
RETjP^i 

6 CL0SE<URIT«1) 

__CL£&Ei gni Tl7 * 01 SP0S£f ' delete D 
FL004V<1)«0 
rLCDAY<2)«n 

R6TyC»N 

FNi) 
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21.5 SDBaOUTHIB CLA8AV 


riRTRAN IV 

0002 

0003 

0004 

0005 


0000 

0007 

0008 
000? 
0010 


0011 

0013 

0013 

0014 

0015 


0016 

0017 

0016 


0014 

0070 

0071 


0C7? 

0025’ 

n02< 

0025 

3C26 

0027 

fl02H 

002V 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 


C* 


C« 
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PLUS V02.04 12156119 29«auQ»77 RABE 21 

/TPlBLgCKS/tiiR 

SUBRRUTINS CLA8AV 
IHpUcn„l5!T6QEP ... 

INCUUOE 'SVIC300f33CANSCRH2R,t«lCt 
tPCLUOl *JVtC300|3]CAH8pARAH«‘lNC* 

PARAHETeB HAXCATa6''|HAXSUdaA0fMAKCHN«4«NPtXBl96«NLIN4tl7iHAXfL0a90 
.laP^VllltNMI.Sfi£9iPUSKlP«12iP87RlPflPLiJ!ll3AC0«6i^AXACC«4| 
E'^lRSPVTaAfNPDThPslO 

EQU 1 VaLE*^CE (Cl,AC0ATE)iIP2it8RQ}*ce3(Pr|.AG)|CC4|Txl)«(C9«0|8Kf0) 
Integer Ci(469),C2(256)|C3C7t)«C4(348)«C9(629) 

Integer 42nATE,SJbCAT,SUnP'!P.CATKNT»CATTM 
. _^Ttx;‘!NV-EC«'''i»CH4K,NPSy9tfifT5Ai»DgTC|.y ... 

CO»«M2N/CPHl/ACDATE(2.MAXACC)iChNVEC(MAXCMN«HAXACC)«NRCHAN«N0SU8* 
lSUBCAT(MAx«ua)tSUet>2P(HAk$i 8)frATKNT(HAXCAT)<CATTH(HAXCAT),N0OR« 
2N0Du.N‘’T*^.'^irTCAT<N'>i^TS)«O8TCLU(^OeT8) 

|NTEG»:f-- At)ATES,Sll^£7,ANALST,FUDUAY»D«T0AV,P0ATEl,TnATEl 
. - INTgCfef' PDAT?2,T5ATC-t,^ATF8,TrAT|3,CAm»)iPl8K|O,RAN0iM|8RIO 
PVTE r5Lf‘u'i» J^ACft»?!l'!U3R*S"NEL.'^8TARTiNTVPEl,ALPiALPB 
BYTg prrCT, PCTCTP» VAR, VAP0.CLArfeL. TYPE 

C8MHP../C^M2/!SP6,pPLPLGfN8*.C0»A0ATES(2,MAXACD)i$PlL6P(MAXACD), 

lSUN6t<‘'AXAPD),SUVA/(f‘AXACD),I»'nATfc(2)»ANAU8TC5»«rL0PAV(2>» 

2DKTDAy(2>,.vSTART,NTyPEl,PD4TEl<^)#TDATEll2)|PPATE2(2l,TPATE2C2), 

3PJJAIP3(i),TDATC3<2),N0CAlti:ATNA''(rAXCAT)iAUP<HAXCAT)»AWP«» 

4 o(;TCT(mavCAT>,PCtCT0,VAK(MAXCAT),VARP 

iMTEGEt^ EFLA61,EFLA62,eFLAG3,ErLAG4*ErLAG5,UriA61,UfUG2«urLA63, 

IUFuAGa 

INTgrist' PFL Ar,,nS'<h* T 

l’t> »M . /C‘*^^3/PR.AG,f'SK >ir.T,6rLA6t,EfLAS2,BFLA6J»PFLA84»BFLA6S,UFLAGl 
l,0Fl.AB2,UFLA<?3,UFLA64,''iBwUAB(MAXSL9) 

INTEGER TXl,TYl,TX2,TY2,ACniSP,J,B,0T»lIN0,0?TARY»QMlN,6MAX,FUL 
integer SP^ I»’D,CLA' f.n,CL'J6 C 

G»;'^m(v/cCma/TX1,TYi,TX2,TY?,IXi,IYi,IX 2,IY2,AC0ISP<2)|IIU4},G<4», 
l9(4),yT*lNn(C5,f((jpj.,j;),sp .I^D(5,^(>lSPNO),IH^lINn(4)•NUMO0T» 
2P0TARYUb0TS),GHtN.(i^!AX,FUl (2* 7) , CLAWNOI 8) ,CLURN0(4) 
C/-M-i./pnH5/ni9KlD.f'ANn55^'(* 0 '»'T<! ) , GPIP ( NDPTS) , DLABEl (NDETS) , 

1TYPE(‘ 'H*TS),RECL'^C 

Ci« ’Mr- /i.eC4L/FILVA <l5),Fll TYP<a 3>,K, JUL10 
LPGirAL#! f>urH(19A) 

on raWiXATRMO, t FU.E ♦,1-,A2,» DID »2T TRANSFER SUCCESSFULLY') 

aPEm ( ilF i fii, DAMfek * SVG I C300,nCLLStFR**P‘,TMPii access* 'DIRECT', 

• TYPE«*KLni ,KAXRtr*'.'U?,,RcAn0'iLY,REC0ROS|HE*49) 

RfeC^^P*! 

CALL SL'RSTR(FlLTVp..,,3,FIL A^-.pA.S) 

CALL SGRSTP(FILTYP.17,5,FIlNAM.18,5) 

^PEn( UN lT«7,NAM|«riLNAM, access* 'DIRECT TYPE* 'UNKN8WN', 

-■ M A X **E G • ‘ 'L i N TfiWc ■■ R " 0 Si iorn pj 


IFIPFlAQ ,E0, i) OP T0 2 
Fl'iP (1*PBCN?) 

HEAD <1»«ECNP) dUFFl 
i*NITF(7*«ErNP,PRR«99) RUFFi 
IFlR ECAip lSTj 116) GP TP 6 
REC‘JP«RRCNP»1 
Go TP 1 


ORIGINAL PAGi: Ls 
-OP-POOR QUAUr > 


rSRTRAN U 
RRMUP P.fTN 
003S 

0039 

0040 

0041 

0042 

004J . . 

0044 

0049 

0046 

0047 

0048 

0049 
0890 
0051 

0092 

0093 . 

0094 
0899 

0096 

0097 
0096 
0099 
0060 


»PLU8 V02V04 


/TRiRLBCKS/WR 


12 I 94 I 19 *t9*AU0«7? 


RAM 81 


R0ATS2(l)«mTB2(l) 

POAT£2i8)lTOAT68i8) 

I CLRSEfUNtTtl) 

Ck08E(UNlTi7«Dl8P0S8i*8AV8*) ‘ 

CALL 9UBSTR(PtLTVP.7«9«nLNAH«l8.9) 

-leEMtilitl Till HAHtl* 8,7,0 i CgBOUJCLAttHAR^THP • « ACfiltf • IR8CT 

• TYPg* • 0LD • • MAXR6CPRL I N« R8AO0MLV* RBC0RO91 ie«49) 

0PEN ( U!11T87« NANfiifXLMA9i ACcB$$l *OIRECT « • TYPSi * N8M S 

• NAxREC«»tLlNtRECAR0Sti€a49) 

RECNEil 

FIY3 {ItReCNP) 

-l£(PfLAfi «EQ«QJ.Qfl-IC-3 
IFCUFlAQI .NE. 1) 60 TP 4 
! read (I'RECNP) 9UFF1 
wRtTP(7«PeCNP»6RR«09) 8UFF1 
IF(RECR0 .6T. 116) 60 T0 4 
RECNPaRECLP*! 

Ji0_ll.i 

I CLPSe <UNIT«1» 

CL0SE<UNlTP7*OlSPeSBt*SAVE«) 

IF(PFlA 6 .60. 1> 0» T0 9 
P0ATEi(i)«TDAT6ia) 

P04TEi(2)»T0AT61<2) 

P061f2ll»«TDAT621ll . 

P0AT62(2l«TnATf2(2> 


0061 

0062 

0063 

0064 
0069 
0066 

0067 

0068 


5 ImCATb<1*«'< 

!HDATE<2)«JULn 

RETURw 

99 ^RtTEdO.lOO) <F1LNA4:(P).P«1,14) 

CL?SP 

CL88E(UivlT«7.OlSP0!^Ea'rELEtE*) 

return 

EMH 


5v</ 
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3tt6Rei*nir' 

CIMBV 


/o^£4 U4>itill B, 


I'J 


/r573rW*n<nr 

Pu« 4>o««r \ 

'v Tofu. VctMS** / 

\ «Mt- flU v«»</ 
ir«** ’.’i J 

K\rrut 

(fiEit. 'jtr c J 
<si- 1«*> fuvi-^n 


^ iiiSl cu . r :Vii 


fyv* 9 * 

• f ^ 

kWHlYC (^ftCVO) I < 

<?«Cp<> fC \ ;j 

\^-1Hb»«5C \^ « 


y^Qii I 

X 



.9 


TO •<!«.« ' A 
•«*re fii£ 4IIM»ft , 


loWJriJtfiTMw" 
jnt6tss(OiOf':!i) I 

i'ClOSSmoM^f* J 

lP^*i\ 9 \CMo>i 3 ] 


jo?t*t !••»<» •7r« 
r<«*vf.i ;e -. 

. •^•r':• i 


M* 

V fites fiiMfvU'i 

«0 I 


>K#«4 rKf£<;o) 

/ Tf#«5 

t Tc k J/ r I 


, 


; ic s ./ I . I 

\*iviiiT( I 

Sfkttt'i to \ 

\^i»fit tn/li, \ 


,-'«U „ ", 

ff ) 


3 y^' 
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i. 


4 ^ 
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O'" 


riRTRAM Iv 
--fflWififiif.TN 
POOl 
0002 

0003 

0004 

0005 


12I!>6IS0 ?9«/kU0»T2 


PAOE 29 


0006 

COft? 

0009 

0009 

QOIC 


OCJl 

C0J2 

oon 

0014 

0C15 


0C16 

PC17 

0C1« 


001^ 

03?J 

Oj?l 


03?? 

135;j 

o:?4 

032*j 

0C26 

0027 

CG26 

0027 

OOS'J 

3C31 

«S32 

PS?3 

0074 

OCJS 

0036 

0037 




•Pi uS V02*C4 

/TPiHlPCitS/wK 

SuPfiPiiTlMg STASAV 
IMPLICP I n'GFP (**v) 

InOlUDE •8''lC3Po•3^C»MSC{•^!'^ i|mC« 

lNCU"Cr ’Svit3i??,43C* 'SPAP*«,|*iC* 

PAPAf’gTFrt MAXCAT«e'.'AVSUp*60»-AXC>'N*4,NP|*»l96»NUN«ll7»HAXrLO*90 

1. w»KV«li,N?pTS«2C9.LLSHlP4l 0«DSS PlP«10«HAXACn«6«M6)fACC«4> 

2. \.2SP<-'2*6,NP0T».r*iii 

EUUtV«Lt^'C)r (Ct»AC''/T; litC-^iISEOftCSiPrLAGtttCGtTirDttCfiniSKlD) 
lNT6<5fcR ni(449),r2(?*>f ),C3(7n.C4(S4P),Cf(029) 


C4 


t* 


tvTECfel* ACPATk.st'i-rATiSbPP H| C* TKNT,CATTH 
pyjE P3bfeiD TCAtipercLy 

VC-JHl/ACPATk (2,MAXAC'‘) •C>^‘'V6C(^A4CMM«MAXAeC).M0CNAM«M0SUP* 
lSLl«CAT(rAKSU' ),S'lrjPPPC*AXS' HJ »r4T4M«HAXCATj,CATTHCHAXCAT)iNi07>» 
.MH,patCAT(I- '/TS)i0e’'CLU<'^n2T8) 

.A2,AVALST,PLPUAV,DnTT)AV,PrATSl,TOATfci 

3»Tn*T63|CATNAM,OISK|0»PA*IOPM,GPIO 

NPL,^START,4!TrP»!l,ALP*ALP0 
.CLAofcLiTYPE 

»CAtfeS(2»1AX*CD)*8PlLCR<MAXACD>. 

lSb>!:U( AJ^Af’i;), 5U* A / (' AyAOD),!^^:ATt(2), ANAl.';T(5).rLnOAV(2)» 

2U«:T3/r<?)i T/Pri , PT • TP 1 (2) , T04T6H2) »P04T82C 2> » T0AtB2<2) , 

2^ * Tr*T-3(2) *» ‘PA?# “ATNa^I^-aXCAT)! ALP<MAXCAT»»ALP0# 

4 aCTCT(-*,CAT)|Pt’CT2,V*P(riAXrAT).VARP 

t. ’Z Lr*i A. 4 1. Lti a*« L.^1 k ^ A ^ KC t 4AC.IIPI 


tF|.Aul,krL/’«2.‘-f I A '4ifcrLAC4,5rLA65»UPLACl.urLAC2»UFL4G3» 
‘*PLArt,?S'r. 


l \Tt ;*.=< 

I of t A''-* 

r..‘ /(» «T/pf I 4 -, %KH\f ,cri.*Gi »rf uA82«6rL»Q?»PrLAG4»6rLAG9#UFLA0l 

liOfLAi-P.'-Fi AT.J.'JFL •a4,* e i.aP(«»7SIS) 


iNTsrc 

li,Tbn, 

c.v < • 

It'C-*), 


■,TV?,»C 

,1, . <*i 


ISP.S.fi.DT^-lNO.P/TARViG-INAGHAXirUL 


•• TX1 

/.-;*a4/Tai,tyi , TX?,TV-., IX* I ! Vi, IX2,1VP, AC0|SPC2>» IU(4),6(4 Ii 
,3-*T ^),SP'I 3(5. ^SSwriilMWlNTUflSUHOPT. 


aPjTA^vf ,n8TS)» i‘'t ...♦•‘AX.PUI (?»7) ,CuA*ii4*>(i),CLUWNO(4| 

,PA jrY< ( O.'Ts) ,CPl'‘i(voaTR).OLAB§L<’40‘»T8)i 

iTyPp' V -.'TSf.^ctU ’0 
ni“g 'itvi% •«orrt(72» 

Cf. /'.’CAL/nf A (l»)|FlLTVPf21),K, JULIP 
r.'‘--iT(l*^0, ' FIl*" •»14A2i' oil * ?T TPaX'SPEP puccessf^lly* ) 
CALL rRRSF.TC‘9, ,?‘<b‘:,»,rAl.SF.»lP) 

CAUL <5T>(r iuTvp,i.3.F!U A-'.^A.S) 

Call ■•.''ii'T:^(riLTVP,?7,P|FIi 'YAM,iP,4) 

apk .(0 I 7«1, .'A -t6»*‘.VA|C3ii0,l3CLO8TATS,TMP* ,ACC68S«»01RPCT*, 
• TYPA««'/L’’*.f^'XOt' •mavCaT,4PL**(08!2P«36) 

2PL-i(» lTi7,“A'‘k«F if'A’. AC' kSSt'8tOUPNTIAL*i^^R6*'UN*<>4«PN*, 

V 'f; 4'i«'b'.FAK 'AfT'L‘) 

IF(PFl^3 .?0, «) ^4 3 

ir(!,rLAQ4 ,NC, 11 r,fi T» ; 
wmT'. { 7,f.PP«79) Cl 
WgCN’tl 

rj -:r) ji.Kfr ) 

»6Ai; (lt»»tr;,.) {,.-fFl 

APlTP(7,gRR879) uFfl 




fBRTRAN !^« 

PBMUM .fTM 

OOS0 

0039 
0010 

: 0041 
^ 0042 
OOAJ 
0044 

0040 
0044 
0047 
0040 

-^49 

0090 

0091 

0092 

0093 


9LU0 V0t«04 iflOOlSO 29«AuO*77 

/tOiBi teict/W R 1. . . _ 

trcoocMo (OT. nocat) q» to a 

.lECnOaliClim 
61 TO 1 

2 CkeiEtumiiu 
close *UNtT«7»DlS»fr8i«'8AVEM 

. .Jiipri.Afl «EB. XI fla tflj-. . 

PDAT63ti)«T0AT93Cl) 

10AT&3l2}tTDATI9(2) 

9 |HDAVE<1>M 
iH0ATEl2)«JULl4 
OBTUPit 

.. suuxEaoLOOO) .muiAtiiPj^oiiaii. . 
CLSseOiNtTal) 

CL4t0(UNlT«7i6tS99SEii*0ELETE*} 

A6Tu4a. 

enp 


OAOi 24 





21.6 SUBROUTINE STASAV 

C SuB Ke«Ti(v7 

-i 



JKKiBT \ 


'TuCcttoi ft>F , 
.6yyb»} Ouo.^ . 

\CllJff1 I -CS' / 

C' / 

4l_ 

• Tc \ 


. fsjpf 
• Mr r iL6 vH»i* 




•/ 

/ 


ci* 54/ uv)T«i re 
(Cidfull 
/'aySd.JS 7\? 
.‘■fff* 'S-[ ^ .jw.l.’ 


CfVf [I il- '/ f 

/••i. -.i' 

Y ■•('111 ic'n/ A/iir}; 


liOi^ 'Cs^ i tu 
/f:-:- 'iia-. uiV' i 




, 'It 

wi ‘'I* H 






^n^Jb 
: rh. c. 


« , 

i 

/xifliTi; Cv iiU;- 


.i^r 




oRiamAi. pmsb 
OP POOR 


fieoo^ 

/ fr^CLtiSff^tS.Uf 
/ To gyRi 
I • /'•eoA/ 

. >.*• I**'.' 


Vifiif- 




HftvE 

i4u J^:.£i>KQ5^ 


• CtoSl* V/iiiT*/ , 

,'» .*,': il.> U-ViT #7 
(ujiTH 
:? VSWVC ; 

.J'e " 

I ui-r ^'v>: :¥*?,%• ' >^f5_ 


p<«>^S^>T OflTf cf urTiKi'" 
^ci^e ddS 
~ £ 


Ul*'iS S’190 i*liT I 

»' * SioU 


li. 


/' - N 

'':TuiA-; ) 


I, 


/fM' 

ri 


S£77T7n!lv«Vi-Tj;ji 

LveT Ti»w«S^ f < I 

fuea'ise'-uv 

— r 

* Close uv<r«j 
• CLote lt' 'T»*i 
(imiTH DiS/‘oi'e 
j t'Qi.S'.e'; 

-s ‘ 


K- ' ii 




\- 
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^ V 
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~21.7 SOBHOOTHW 80B8TO \ 


r*»TRAM IV»PlU 8 V08*04 ‘l2.l56i8» ' ?»«AU6«>7 ~ MOS 8* 

subKI? iNi*^luB8f» < A I fTNreT ji 

C mBvB a TB 9 

0008 implicit integer (A«2) 

oooj ... ..yigicAkti -iiu.Bm . . _ 

0004 data BLANK/8H / 

^mi li£j r 

0006 «IS«J 

. 0007 _k?0._ _ 

0008 IP(N .EQ, 0) 60 T0 80 

OftfiO \!*L _ . 

0010 »f(L.Q7.M) l«M 

..--MU [? B ,lLi<wl.d. _ 

0018 0(JS)«A(tS) 

0013 , 

0014 <JS«JS«1 

0016 11 C0NtlN‘Jfe 

0016 ir(N.ah.H) R0TUR^> 

. L«L»1 ... . . 


0016 

00 30 K«L»M 

0019 

9( JSUc^LANK 

0080 

JS«JS*1 

0081 

3C CJJNT1N')6 

0088 

R6TU3>. 

...OMi 

END 
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21.7 SUBRQOTINE SUBSTR 

A flow chart for this subroutine is not available. 




IpMHHiPIIP 


21.8 80BR00TIME RPTGTO 
rgRT^AN IV-^lUS V08-04 


12156142 25«AU0>77 


8A0I h 


0001 

OiU 

0003 

0004 

0005 


subroutine RRT0EN(SE6N8il«J«K*PtLTYRtA) 

_ iHouciT_jiiifi6fi .<4*yj._ _ 

include *SVieSOOt33C4N8C8N0N*lNCt 

INCUinE lS.YJC800*iaCAN8PA«A!lj.|vC» . 

PARANETeP MAXC4T«6a«NAXSUai60»KAyeHNM«NPty«i86«i«ttN*ll7|t1AXrLO*50 

i.H4XV>ll« MD8TS4288 . DLSH I Pllfl . DSSK tPilO^ MAX ACBtA. MAX APC iAj 

2NaSPUD«6«NROTWQaiO 

- EOUl^WEPfi? ceiilCRATE)|C.C?iI8seiiLtClifCkAOlx<J5#iTXl)»(C5.Ol8KI0l 
integer Cl(469),e2r2S6>iC3(71)«C4(348)iCS(629) 

I _ 

INTEQGR ACDATE«SUBCAt|SUBP0P*C4TKKT«CATfM * 

Bill- CND.VE£iNtff HAIil J^ S y 9 i PnCAU .PgTCLy «- -n-. 

C0NH0N/C0Nt/ACDATE(2..4AXACC)(CHNVEcjNAXCHN«H4XACe)t N*5HAU7N|f0i; 
iSUIfiAT (ilAXSUB J aIUUPBP ( V AXS.Jj ) . CilEUT I HAXCAT ) *CATT« ( NAXCAT) , NBp0| 
2N0OU«N?TN|D0TCAT(NrPTS)«D0TCLU(ND0TS) 

0 

integer AOATES.SUNA2.AAALSTtrLOOAV«O0TOAY«PDATEi«TQATEi 

INTEGER POATE2.TDATe2.PDATe3.TCAT|3.C ATNAM. DI$KlD .RAND 0M,6RID . . 

BYTE nEL^LR»NPACO»S0ILGR»SriNEL.N8TART»NTYPBl,ALP»ALP*^ 

BYTE PCTCT, PCTCT0I VAR# V ARB, pLARfit, TYPE 

C0NKPN/CPH2/iSEG,DPLrL6,N0AC<),AdATESl2,NAXACP)«S0lL6P(NAXACOI, 
lSUNEl-(MAXACD)|SUNA?iMAXACO),INn4TEl2),AN4LST(5)|PLOOAY(2}| 
2D0 TDAV(?),mSTART,NTYPE1iPDaTE1(2),TDATE1(2)*PCaTE 2(2)«TDATE2(2)* 
3P0*Tfat2 ) . TGa t53(2 ) jNJ£a1aC1.Tn Af^ leiXCAJ) , alPINAJJCAT) ♦ AlP0» 

4 PCTCT(MAxCAT)|PCTCT0.yAR(HAXCAT),VAR0 

» 

integer EFLA61,EPLA62,EriA33,ErkAG4,ErLAQ5«urLAQl,urlA62*uri.AQS4 
1UFLAP4 

InTEGF» PFLAGiOSKM'JT 

CnRM.^M /C0H3/PFLAQ.nSKNNT .EFLA3l«EFLAG2.EFLAQ 3.Er LAG4»EFlAG5,UFLAOl 
l.UFLAG2.UFLA63.UFLAQ4,NEWUrt<MAXSl;B) 

I _ 

INTEGER Txi,tVl,tXP,TY2,ACiISP,e,B,DT«IIND,O0TARY,QMlN,GHAX,FUl. 
integer SpwlMU.CLAWNO,CLlJW-iO 

C0MMf)^/c0M4/TXl,TYt,tX2,TY9,IXl,^Yl»IX^,^Y^,ACO^SP(2).Im4),C(4>, 
19 < 4 1 , P T ND ( 5 , ^!0 nTwC > , SPk I N.D < 5 . f. PSPWn ) , I NW I Nf) < 4 1 1 N UMD0T« 

■ ‘21507 aRv ( i^BTf f , GN I N, 6“iX , FOt. ( 2# 7 ) , ClANND { i ) • CllW^il ' 

C0MHPN/C*2N3/OlSKID.PANn0M(::O?TG),GRlOlNO0TS),DLABEL(NO0TS), 

iTVPE(ND0TS),RECL'^C 

OIMENST0N ^IL6JP{7)»A(4J,S5GN0(2) _ 

data FlLEjD/2H ,2^ ,2H ,2H (2H t«2H0A,2Ht / 

100 F0RHAT(1R1,4OX.'CA^S 1-100 DATA BASE TRANSACTION REPORT*) 

101 f0rhat<i^*o,io3x,*oate *»i 4‘.*7» JiV'/’iI2) 

10 ? FaRMAT(lH0.103 X,«T IHE »,<A?) 

103 P0RNAt(lHO,4X, ♦SEGMENT NUMRER ■ 'iSA?) 

104 F0RMAT(1HO«4X,'OI$K pack NUMPER ■ 'iM) 

lOTT0RMAt(iff0,455f,'*TIt.65'.OX, *TEPP^,4X, ♦ERIP?*',8X, «PErM*) 

iOA F0 RmAT(iHQ, 44X, *UPnATEP»,7X,»DATE*,4X,«DATE*,4X,»DATE«) 


104 format (|H0.41X,7A2.3<3X, 12^13)) 

.112 F0RMAt(iHo7S7X,*PEPMANENT nAtA GaSE UPDATE/VBRSTBN 
•♦MAY 31.1077*) 

113 PORmAtHThO,* ♦) ■■ 

WRiTEdO.lOO) 

WRITE (10 ,101) !,J,K 
WR1tE( 10,102) (A(P),Pal,4) 




i_ 
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page r^ 

POOR QUALITY 


re^TRANi tV-PLUS VQ2.04 12156142 29«AUQ*77 PAQE 32 

PRHyPp,fT_K_ /TRi BieCKS/Wff . _. 

0039 uRtTE(10«U2) 

0040 MRlTEaO.103) (SEQNi^(P)iPtUU . 

0041 4RtTE(t0(104) DlSKtO 

0042 .-RlTi(l0,105) i. . - 

0043 »iRtTP(10*106) 

0044 CALL SUflSTPtse CNa.i. A .PlLEin^l^l ^ .. 

0045 IF (UFLAOS «ME. 1) Q0 T0 in 

0046 CALL Si.iBSTR(nLTYP.37»5|FlLEID.S.5} 

0047 -RlTE(10,l07i <FILEir(P).P»l,7),O®TDAYCl>.D0TOAV(2> 

C04A 10 IF (OFLAQ2 .»'6. 1) GP T0 2i 

0C4O CALL S'*fiSTR(riLTVP.«2i5»F|LE!D.5.5) 

0C5u - k'SHLaO^lO?) (FUELOiEl.PllAZjjFLQOAYCDifLPOAYd} 

0051 2*' IFtijFL*6? ,EO, Q '.AVO, tFlAG ,EQ» 1) 60 TP 30 

0052 IF(ErLAG^.EO.O.A^C'.EFLAQ^,^Q.O)Q0 T0 30 

0053 CALL S-flST(iCFILTYP,4,3.F!Lt 10.11,3) 

0054 CALL SUBSTO(F1LTYP.17,5«FIlE!0«5»5) 

0055 «i:4lrt(10,106) (FtLPI0(P),P«1,7),T0ATF2C1),T0AT62|2)i 

t r’DATL2(l)«P0LT£2(2)fl>lCATE(llJlP.0ATE(2) . 

0056 CALL «:J0GTP(FlLTvp,7,5,nLPIO»5»5) 

0057 ^RlTtdO.lOO) (FtLElD(R).P»l,7),T0ATEl(l)iTDArEl(2)« 

• PD&TCi<i),Pii4T?l{2),lYPAtt(l),|P0ATE<2» 

035a 3: ir(JPL*G4 ,EO, 0 ,AnO, PFLAG ,gC. 1) 60 Ttf» 40 

r059 IF(FP(.AG5,Fi),in5 ’ 40 

0060 CALL SUBST«’iriLTYP.27j5,.flL6HJ4!L,5) 

0061 -RlTeOO»inFMrn.6lD(P)#P«li7)iTOAT63(l).TPATE3<2)» 

• P3nF3‘l)|PDATE3(2)»IPDA^E(l)f IPDAT6<2) 

0362 4»' C.3 TI\oe 

0063 vprT5(i:»ii3) 

0061 «£TUF.\i 

0065 EM 
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/bfCKoirOCi^it I ^ 
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l(^St<M0oAllif 

Qf»Sw HMifriS 


y*Rcivi<« ifc**r \ 
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V Cuvffwt ^fir« fAi» 
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f9f C»a*tiiTf^ Pntw> \ 
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MHiiB 

- Hu vff.Jiiwtf- . 
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V 
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21.9 SOBBOOTniS UMLDOT 


!ir991B*N. lv »PLUS Vft2^4 i8i99«ln 29UUAiZ2 fA®t 1 . 

D0T3Ff|FTN /T»|BL0CK8/W» 

0001 sufijtfuTiKii.iaik]ifT 

0002 tHFLlClT tNT66(R(A*2) 

0003 include <SVlCa0fi.UC4»SfiRH«lt;ililCi 

0004 • iNCLUOl: 'SVIC300*33CAN89 ARaM«1nC* 

0009 • PARAH6T6R MAXCAT»aft.MAXlUBB6O«MA2CHN»4.N9lXtl»0*ML!NyigiH4XfLB«8O . 

• l*MAXV«llfNO0TS«2O9.DLSKI»*lOiOS8KimOtNAXA6D«6|MAXACCM» 


0006 

0007 

UQ9 

0009 

0010 


ooa 

0012 

001^ 

0014 

0015 


0016 

nci7 

ooia 


0019 

Ofl?C 

o:?i 


c* 


r» 


00?2 

0023 

00?< 

0025 

0026 

0027 

0028 
0029 


aN0iewo«i»N?P?M«io . . 

lout Valence (Ci*AcnATE)i(e9«t8EQ)«fCs*priA0)i(C4*Txi>*cc9iDtsKtD) 

tNTfGFR Ct<469),C2<290)iC3(71^C4(|4a||C9(629} 

i ntege r ACDA TE.S>jaeAT.SUBP>^P.CATXAT«e ATTH 

BYTE CH\VEC|N3CHAN.APSUb|D7.TCAT«O0TCLU 

C0HM0N/C^Nl/ACQATE(2|MAXACC)|CMiyEC<MAXCHN|HAXACC),N0CMAN«N0SU9t 

lSUBCAf(MAXSUP)«SU8P4P('^AXSil8)tCATKNT(NAXCAT)(CATTH(MAXCAT)|N0OP« 

2N0OUtNi2TN«O4TCAT(Nn9TS)|90TCLU(ND0T$) 

lMlE^_*54l£SjSUNAi,A*^AL5T,FlEOli,D0TOAV,POAtGliTOATEt 
INTEGER PDATE2,TnATE2.PDATE3.TnATl3 »CATNAM, DISKID, PANDPMiGPIO 
hVTE uPLFLG»Mi}AC3»S0ILnR,S'.'NPL,N8TART,NTVPEl,ALP,ALF* 

RYTE PCTCT,PCTCTP’»VAR.VARa,DLAREL»TYPE 

C0‘4Mn;./c4N2/ISEG,CRLFLG«* KACQ,AOATES(2tNAXACO)*S0lLOB<PAXACOl* 
lSU'ieL<i'‘A»ACD) ,9UNAZI» AVACD),lKrATEC2»»ANALST<5),FL00AY(2>, 
2D^T^AY(g).^STAffT.^TVPEl.PD^TRl(2),TDATEll2),PDATE2C2),TDATE^<2^« 
3PD‘'TP3<2>.t5aT 63(2>, M^CATjrAfNARlPAXCATI.ALPIMAXCATWALP®, 

4 PCTCTr*AVCAT),PCTCT0,VAR<MAXCAT),VAR« 

InTEGEK LFLAGl,FrLaG2,FFLAr,3,EFLAC4,EFLA69*UFLA61,uFLAG2,UFLAGS* 
1UFLAG4 

li-TEPE'-' PFLAR,rsKKi T 

/r.^«3/PFLAn»''SKM:jT,EFLAGl*EFLA02,6FLAGS,GFLA04,EFLAG9»UFLAQl 

l*UFLA.i2.UrLAG3,UFLAC4,NEWH«<P4XSOR) 

IMEGc^ Txi,TYl,TK?,TV 2 ,ACrlSP,G,B.DTW|ND,n 0 TARV, 6 H|N,GHAX,FUL 

iMTECtR Sp.Jl.v)D,CL«'''n»(;L!IW' 3 

OZMfV • /c3H4/TX1,TVj ,TX 2|TY^,!Xl«iY|jIX?,IY2«AC01SPj27,Ill(4}(G(4)« 
iy(4),r,T>,lNn(5,V0nT C)iSP«r OIS.NBSPWP), |MwiNn<4),NuHO0t, 
2ReTA!V'v(ND0TS),r.HlN.GMAX,FUL(2*7)«CLAWNO(O),CLUUND(8) 
•:2''»*r'./f::JM9/D|SKtn,RA’4n0H( iopTs),6R|O<NDRTS),DLA0ElINDPTS), 
iTYPEI-iP^TSliPECLPC 
L.?'‘ICaL« 1 CAPOIfen) 

M'^t SlB" Oi(.Tij'iF(3,\n9TS>,SE'}NUM2),8E0NAM(9>,START<4) 
lNTEr.E**«4 ?i*T 
3ATA 9LA»'K/2R / 

OATa n«T/*O0T 1/ 

liATA SEG‘'AM/2HSi.2RGM,2hr:N,2MT ,2H / 

rjATA STaRT/?HST,2'4AR,2HT ,2m / 


C 


0030 

oon 

0032 

0033 

0034 5 
0939 

0036 

0037 


IF(.«|PcAT ,LE, 0) RCTUR't 

C'PF\(U^ITt5,\A“E«*SvC|C3no,nOflTCARD’.DATStYPE«*NEW‘) 
CALL S"bSTR<SERNAf'. 1.9 , Card, li9) I SEGMENT NAME 
ENr.'nE<4,9,seGNU“) ISER 
re«fMAT(i4) 

CALL S<JBStP(SE5N:'»‘.i.4,CAA5,'iC,eo) ISEOHENt'NUMBEP 
CAf T( i9)«*C* 
wP1TF(3,10) carl 


12197110 tt*AU2*77 


9 A 9 | 8 


riKTOAN 

MTgrPi 


oose 

_ 8 ja 9 

, 0040 

>r-M4± 

' 0042 

> 0048 


tv 

FTN 


■Plus 


10 

20 . 


V02-04 

/TRlMCKt/MB. 


. 0044 

0046 


PORHATtaOAl) 

.EJfiflAIilOJ 

CAU SUISTPdTASTiliOiCAAOtliS} 

-ENOiiDE(2«20<TBMPl HitAR T ! 

CALC SU2STR(T8HP,l«2iCAR0«9«a0) 
MB!Tgt3.1fl> CABD 




NANI 

JtAUII 


KaO 


Dfl 4 0 ITYPaai.g 

00 40 I.A8NIIH«1(N9CAT 


0048 

■0088 


0090 

0091 

0092 

0093 

0094 
.0095 


GALL 0 3T88Ln TYPC.LAaimH.»l28iaigi^PLOJ 

tP(NUMO0T .EQ* 0)60 T0 40 

P« X% Jal.AlUMPWT 


21. 


K«K *1 
OOTKUniflOTiRyiJL . 
DOTnur ( 1 « K ) snaTNiiM 
DETBUF 184.10 ■LASNUn 
O 0 Taur< 3 .io«iTvpg 
■CatilltlUE- 


0096 

40 

C0MT1NUS 

0097 


TcriSt'^ - - 

0098 


LA9fitUf*«99 

0099 


oe 100 NtU.TB 0 TS . .. 

0060 


ir(O0TBUr(2*N) .go, LA9NUM)6R T0 70 

0061 


. T2 81 irtRSl PASS. lM«iJ_L80P . 


C THIS PATH 66HERATES Ar<i/iTHER 00? CARO 

0062 

90 

V8IT6l3U.aJ...CARO .. 

0063 

51 

U«10 

0064 


KfO 

0069 


CALL SUeSTPtOOTtliA.CARD.liBO) IST0RE 4 CHARACTER 

0066 


LAfl*tUlt;flBTBUrt24l'}, - - 

0067 


ITYPE«D0T0UF<34N) 

0066 


IF<LABWUM) 92i92«99 

0069 

92 

LAR€L*0LANK 

0070 


00. TP 69 ... ... 

0071 

59 

LASELaCATNANtLABNUH) 

6072 

69 

CALL SUBSTR<LA0EL4i.l4gABD4e.l) tf.T0J!i LilIL 

0073 


ENCeCE(1.66*CARD(9)) ITYPE tBT0RE TYPE 

0074 

66 

F0RmAT< 111 

0075 . 

70 

D0TKiUHaOPT8UF(l4H) 

0076 


CALL ABDQ0T(D0THUH.CARO|Kf IST0RE P0T 0H CARD 

0077 


!F(K Jo. 1) 60 Tk. 90 

1028. 

IDO 

C0NmyE . 

0079 


MRtrP(3,iO) CARD 

0080 


CL0S6(yNJT»3jCJ$P086»»|AtfE'> 

0001 


RETURN 

0062 


, llHP 


N0RD *O0T « 




21.9 80BH00TIWB UNLDOT 


c 


U4fi0or 


1) 




.•fC* U«lY«4 19 / 
/OuifuT lf|ae«itai/ 
'iiM n i 

fiiS'oofcai». 09 ty 

M *S)*:£Joc^i3 / 


m^S 1 S^e \ 

' “3 :~_ 

mHt(e tlawfr'-tf X 
f>f • :<k\ Imtutt , 

HI-OK& r# 

S|»*. ij ^ 

4, 

1 ~ A»V<Tff\ 

«*®ve *nwi4' \ 

T* CflKW X4t^6l 
• ^•'ic Ai^tT r < 

To Cfl M U j «* . 

.L .. 

«O4Tte4;rS0«^ 

CHi<C 


/ vicvr ^STf 4 tr.^i 9 \ 
f HO Imnai: 

L 0 lf 

\ jfctotu 

\CA/sft*if:i fcfCfiitp/ 

\ IV tc>a / 


4)HiU Cc^JMl^lr 

'iY^T3««, Ij 
(<srHnr vo^) 







21.10 «lBillOOTI!IB IDDPQT \ ' \ 


rWTOAN IV.PUUS V02*0« ttl97l89 * i?«AU0«i77 Olif 9 

ftiliff iF.Tl- - . /IPliiJCKl/Ha , 

0001 SUMOUTlNf AOOOOTCDOTNUH.CAOniRtJ) 


0002 

OOOi 

0004 

0009 

0004 


LfOieik*! CAODtOOl 

irtDOTNUP 4UT.10I 01. TO 80 

irCOOTNUM ,IT, lOOlOi to 40 

irfjo .L6. Aoiaa ta lo. __ _ . 

0007 

9"“ 

K«1 

0000 


SllilStL . . . 

0009 

10 

lNe8D6<Stl9*CAaD(J}> OaTMU>< 

0010 

19 

roetiims) . 

0011 


JaJ«4 

0012 


BfiluBa - 

0013 

20 

tf(J .OT, «0) 00 TP 9 

0014 


ENC 3 DE<l«S 0 iCAllD(Jn OOTnU^ 

0019 

30 

ropMATdi) 

0016 


J|J«2 

0017 


96TUBN 

0016 

40 

. .lP{jn-49U 00i£2 TO 9 

0019 


EMC0DE<2*9O«rAaD(J)) D<*T‘*UM 

0070 

53 

rawf'ATUO) 

0021 


J«J*3 

0022 


*»ETU9\ 

0023 




( 







21.11 SOBBOOTIHB PLUOFF 


jjfEflTRJkN JVifU.yS V0 8«fl4 _ _ I? 157*44 _25«AU0*77_ 1. 

rLDBFr.FTN /TPI^LBCKS/WR 

0001 SW«R7uT 1N6 rLOBFf 

ccc 

c 

C read Fii:|.D file F«'R SEQmEmT IDSEQ ANO 

C 0fF.L'»AD iT_TF .JAP£ T? U6 PuNCHBB IN JRIPS Ff«i*AT 

C 

CCC 

0002 

0003 

0004 


0005 

OOC^ 


INCLUDE ’SVlCSOOtSlCAMSCRHONilMCi 
INCLUDE ’SVICSOO.SOCAmSPARaM.IwC* 

PARA^'ET^l« MAXCATa60*PAXSUBs60|HAyCHNa4«NPIX«196tNUN*il7«NAXFLO«50 
liMAXViiliNDBTSfZOO.CLSKlPaiQArSSKlP^lO.HAXACOfOiNAXACCaRi 
2\0SPWDs6«NPDTwn«lO 

EQUIVAlgNCE (CliAC?ATE)i(C2i tSSQ)i<CSiPFUAG)«(C4iTXl)i(C9fOI$KIO> 
IMEGc'? Cl(469).C2(25&)tC3(71)»C4(34e),CSC629) 


0007 

COO'!* 

0009 


INTEOE'^ ACf)ATE,S'J«CAT,$U’^P'*P|CATKNT|CATTM 
MVlE £HA'VtCi?'OCHA.Ni'‘''’SU9,l)'^T5AT#POTCLU ... 

riiMM?\/C-?Hi/*COATE(2,MAXACC)»CMNVEC(MAXCHN»MAXACC),N0CHAN,N08U9, 
lSU9C^^C'«Axcya),sU9P,5P(MAXS.jB)iCATKNT(MAXCAT)»CATTH(HAXCAT)»NR0R» 
2-V»DU. / TH,D4TC4T<;'i :.«TS>»P^TCLU(^n0TS» 


0010 

0011 

0012 

0013 

0014 


4S 


ti^TgCerx AOATESiS'!\AX,4^!ALST,Fl.DOAY,D0TOAy»POATEl*TOATei 
INTEGE'i '’O»TE2*TDATE2iPDATEa*TrATBSiCATNAMjDISKlOiRANO0Hi6RlO 
t’YTg OELFLr,,riiJACn.S<.’!LCRiS'!NCL,\START»'»iTVREl.ALP»ALPB 
9YTE PCTCT,PCTCT(?i''AP|VAP0,DLA36LiTYPE 

ri.HMP-;/ci<-M?/t3P3,UPLPLGi'^.iCr5,*DATES(2»HAXACD».80lLQPCMAXACD). 

lSUNEL('AXAf:D)irUMA?<VAXACD),T>'CATE(2)iANALST{5)iFLOOAY(2)» 

2npTDAY(r)*''STA»T,rTYPcl|PD^Tf:l<2)»TDATEll2)*PDATF2C2)»TDATE2(2), 

3PDATf3(2>iTDATfr3(2)i’'<!CAT,CATNA^(NAXCATIjALP<MAXCAT)iAlP0| 

4 0CTCT{MAyCAT)»PCTCTe, VAR(MAXCAT).V aRR 


0015 

0316 
OCl 7 


P.PLACl.c:rL'VG?,EFlA:'.3iEFI.AG4|ErLAQ5iUFLA61(UFLA62f UFLAGS* 

lUFUAf*4 

luTfcr.fiiv PFL AG,rSKMf.T 

Citf'iM'’ ;/c'^^^/PPLA'5»rSKM^T|bFUAGi*EFi,A02|EFLAG3#EFLAG4»cFLAG5#UFLAGj 
lii:FL/..)7,UFi.Ar,3»UFL*Q4,'.e'LA8((<AXSU9J 


OCIH 

0C19" 

0C?n 


0021 

0022 

0023 

0024 

0025 

0026 
0C?7 
00?H 
0029 
003U 

0031 

0032 


INTECgp Txi,TYi,TX?,TY 2 , ACnlSP,G*e.OTaiND,O0TARY,GM|N,OMAX»FUL 
INTEGEF SPvilwp.CLA D 

j/c*7M4/TXI,TY1 , TX2 i YY?» I Xl » I Y1* IX2 i t Y2# AC0I8P(2) * I U<4) »6C4) » 

1«(4), J«)^T y)|SP‘Jl'De5.^0SP4O),lMmhD(4)|NUhD0T# 
20t3TA-Y(r.C3TSJ ,GMir.,S'<AX,FUL(2»7),CLAWND<8)*CLUMND{0) 
CB'<MrN/r;PM*-»/ni'5KID,RAWI>0*^'(» D’’Tp» ,6RIOCNO0TS) lOUBELtNOPTS) » 

1TYPE(v'.?7S)|P6CL5^C 

PARA'IETfc'" MtjDf iJ»14'sn 
PAPA'^^TgP NbOtSUfiair’ 

CiJ'-iMC-, /F|,nCX ‘-iFLl.LOl3r'U{NnO'*Li) 

«YTE’Lr?‘lU 

pytj samfil(25) 

Cp''(:'>5lu J 12‘lA»'(l3> 

FQI'I'/aUEVCF {NAMFIL(1)i I?NAM(l)) 

?YTfi lApR0 

OYTF ].Ci(_13i,tC2(14),l.C3(11 ),uC4(5),__ . 

1 LC5(1.0)»LC6(6) 

OYTE lC7<6).LC0<4) 

SVTE !C4f<D(80),L?^ur(4) 



^ ( p 3> 




r0RTRAN IV«PLUS VQP.04 


29*AUQ«77 


pah t 


BYTE LABi LB0 « LDU.LbQ* L iSB0. LM0 ( 2) i LVBTC( S) 
MU JSL»«IL/.1H /. 

DATA LD0 /lHO/« tOU/lHU/|UFQ/lH«/fLi0R0/lHO/ 
-kCl « HftHNT iDIt .. 

DATA LCl/lHS*lH6,lH6tiM$«lHTilHA,i^BtlHTi 


I.C2 • PLOSTART ^AHE• 

DATA J.Cr /IHP^IHL* iNDtlMStlKTi iHA^lHPi IHT. 
1 IM *lHN«lHA*lMR,lME*iH«/ ' 

1CJ-.*_PJBLD TYPF? 

DATA LC3 /lHPaHf*lHE«iHLiiHC»lH .iHTilHV* 


data LC4 /1HN»IHA,1HK«1HEi1M«/ 
LC5 • FIELD LIN^? 
data LC5/lHFa*^I.l'*E.lHL»lH0, 

1 IH ♦IHL»1MI|1MN.1‘-E/ 


DATA LC6/1H a^A • ImEiIMU/ 

LC7 • FLDPN'' 

data LC7 /lHr,lHL«iMD.lHP,lH»»lHD/ 

LC0 • SEGENf) 

data LC8 /lriS|lH6»tMft,lMF,1hK,lHn/ 

FILF T a MPL ff CAC CS Pl'CHIJJ 

DATA 1?EP0 /«/ 

JDATA iiAMFiL 

2 lHl,»JHO»lH0,lHF,lK,.lMD,l^ A.lPT.p/ 

lOSEOtlsBG 

LU3ie 

(UMT«U'3,NAHE**DnorC30n»i3FlELOS.THP». 

I TYPE*‘"Ln* ,F«*RM« »L'i«F?RmaTTED • » ACCESS* 'SEQUENTIAL* ) 
I^TlIAL!2F CARD ARRAY t,' FLaNKS 
D0 10 I«1*A3 
lCARD{i»«iaL''K 
in CPNTIMJE 


CALL RCFLO ( I0SE6* TERR.LU3) 
IF (TERR ,EO, 1) G-- T0 >C0 
SEP yART CARD 
D0 15 111. 13 


^ f 

0056 

0057 
0056 

0059 

0060 
0061 

IS Continue 

ENCODE (Ail 3 C 0 .LRUn IDSEG 
130 C format ( 14 ) 

NAMF 1 l<i 2 )»L 0 UF( 1 ) 

NAMFIl(i 3 )«LRUF(?) 

NAMFIl( 14 )»LRUF( 3 ) 


1 

1 


0062 

0063 

0064 

0065 

0066 

0067 

0068 

NANFIL(i 5 )*LRUF( 4 ) 

L 0 UT »9 

OPEN {UNlTiiL 0 UT,NAvE»' 2 NAM, 

1 TYPEi*nEm») 

ICARD( 14 >ilBUr<l) 

IF {ICaR 0 ( 14 ).S 0 .* *)ICARr( 14 J«' 0 » 

ICARD( 19 )«LBUF( 2 ) 

ICAR 0 ( 16 >»LBUFC 3 > 

— 

1 ^ 

i i 
’ 1 

; J 

■ ^ 

■■ H 

• ^ 

: 


3 ^ 4 ?^ 

. — • * 
i 

' .*1 

: 1 

i 




, m 







IV-PI.US V02-«4 


12157144 ?9«AU6«77 


r»i /Tffi Pi 0C 4S/WW 

IC4«?C(17)»l8Uf <0 
WRITE (l»UTi1000) ICaRD . 
iO0*J P0PMAT <8(JA1I 

: if'TiiALiae icard 

D0 le III, 40 

ICAHaUjJLlflLRK . 

ifl ceMiNue 
: FI6UD CJ»UA‘T6R 

iplo«i 

^•at 

2r C(^^TI^^JE 

HZ. if VILRTICES 

LA0«LD‘* 

IF a;)rD"(! w6) .A'E*. -1) UAraLD" 
: ST’Pf li) 

I’F- 2? !«1,14 
ICARC(I)SLC2{n __ 

2? Cr'NT!.^"f 
K e : I 

Pi’ 24 Ial5,2P 
IC*RP( l)»L!‘iePW<K) 
ksk^i, 

24 

wRITF (u'^'UT.lOOO) iCAWn 
: riTl-LIiE IC*H'. 

Dk* 24 Irl.PO 
lCARr{ I )«I^LN*< 

2f C^'i.TlM.'E- 
: F 

Ofc> 2»* Isl.il 

icARr(»)SL“j(n 
2» CP*.'TI'»uE 

lCApt'(i2)»LA« 

•‘'ITP (l‘UT»i 0'10) ir./R^ 

'■ !'.ITlAil2F VEPTFa C 'y-'TFR 

lv*l 

4' C2\Tl\'lf: 

•"■.I 3f' I»J,AO 
ICAsr ( I )elOU»K 
3r CZMTIvr;: 

Lf- - ( 1 )?! 
ivAL»l 

I« nv .to, 10 ) IVaLs2 

K « 3 ■ f w i 

FfvC?t,fc ( I VAI.,IC4G,! r ?'(K) ) IV 

lC4n FtRlkAT (I<Iv'AL>) 

tiu 49 :«i,io 

iCARr.(I)SLC&(I) 

42 Ci:vTi ^ut 

iCARnm)«L''p(i) 

IC/RPa2)*L^’i0<2J 

ICARC(13)*LfcO 

f. 3FT g.f ){, A,K;r. Y values 

I <x«?' ♦?* ! : v-1 )*2*i 
Ll5irvTE<0,LDfc'PU(lN'X)) . 


PAOE 3 


oricinalpageb 
OF POOR QUAUTY 


rtRTRAN 1V«PIUS V02-04 


i2l$7i«4' ?9«AUQ«77 


ixmi 

UHfYTEtlUt 08 QUU^ll-l- 

IY«L1 

_IVAL «1 - - 

ir HY ,6T. 9) |VAL«? 


ir ClY >GT. 99) 1 VaL> 3 

6NC0P6 <IVAL.lft41,l VPTC,FPo«90?) |Y 
1041 FERMAT lUmL>J 
43 C0MTIKUE 

.. »<n - - - 

'»D«1VAI«13 

.. . PE 49 lilAiJiD 

tCARr(!)«LVRTC(K) 

K*K*1 _ 

46 C0VTINU6 
D0 49 Ifl»6 
NDsND^I 

1CARP(ND)«LC6U) . . 

4 A C0VTIN'J6 

ICAR6(md)*LNF(1) 

ICARp < MD 4 imNi ?(?) 

lCAHP<Nr>«L EQ 

1>/AL*1 

IF (nt .GT, 9) IWAl.«? 

IF (IX .QT. ®9) IVaL« 3 
ENCfCe (IVAL»1''42» LVRTC»EPR«S03l IX 
104? FeRMAT (KiWAL>) 


■1 

>ND 
NO * NO ^ IvAL 
De 50 IsL.mO 
ICARr(h«LVRTC(K) 


50 C0NTlN'.'E 

WRITE (L^'UT.lOOfl) tCARD 

HAVE all vertices REE‘I ? U‘iCMfcO 
IV«IV*1 

IF (iv ‘.U6, MV) 04 T*^ 40 

00 5 1 I Al t 00 

ICARO( t)«IBLHK 

51 CONTINUE 

00 52 Ul«6 
ICARD < lJ » LC 7 <n 

52 CONtlNUE 

WRITE (lilUT.lOOO) ICARO 


H * IF (. B » NdD 2 UE ^1 

_ WAVE All fielos reen ru'ChEo 
IFUDaVFlD *! 

IF (IFLD .LE, NFtO) 00 20 

00 54 Iai .4 


54 C 0 '^ ITI ^ 4 UE 

WRITE (l 0UT»1OOO) fCARP 




▼ 




raPTWAN IV*Pl.US V02.D4 12157144 2».AU6«77 

PlOaPFiPlii - .. — . — . 

0171 son CeNTiNUg 

0172 CieSE (UMITPLU3) 

0173 cwesE (u'viTsi.aur) 

0174 BEtUPN 

0175 50? CBNTlNJg 

- 017« _DfPt.l9ali ILilv.tfLO 

0177 150? FBPmAT {lX,»FNC0nE BRP0R V*,3UJ 

0176 60 TP 43 

0179 503 C0VTU"E 

014J TVOfc 1503, IX.IV.lFLn 

OlPl 1503 ruPKiAT (IX, 'ENCtaPE ERR(?R X*,3l4) 

01P2 Rir Te- 4 9 


MdE 5 





ORIGINAL PAGE IS 
_ _ _ _ OF TOOR QUAT JT^’ 

21.12 8DBR0OTINE BDPLD | 

r0RT«AN IV.PUUS Ve2.04 l2l5^IU 29«AU8»77 ' PA 66 9 

7LC0F“F,rTN /TPiBl9CKS/WB . . 

0001 SU9RPUTIN6 RDFLO (tDiIERRflUS) 

CCC 

C 

C REaO D0/DU file FPR SE6>iENT 

C 

CCC . 

parameter NbO0(lE«3o 
•*aRAMETeR Mgp0u«145O 
CitfHMPN /FL5C/ NKc.LPaDUCNPD^U) 

byte LPaou 

RFaP '•0, 3F fields 

R6AIl.(LuAj£fiafl00iE-ND§lfl2) NFLD .. 

reap rest 0F file 

N«l 

an 90 J»1,^■FLD 

READ (L'j3»EHPBiao,-ND*102) <LD "OUU ), I«NiNK') 

. .Nr'trj3r(*'J6. .. _ _ ... 

0012 90 CevTl\-jc 

PC13 lEPRso 

0014 sc-c C0?.T1 i'if 

0015 REryK. 

0016 top C0’'TI i Jc 

0017 type 2^00| U 

0C16 200C Format (ix, *FRPSR,--’EAU1 n3 field file F9R S66M6NTM6) 

0019 ltPR«l 

0020 GK T“ 3oD 

0021 10? COMTI^'ifc 

0022 

0023 type 2'^03» id 

C02« 2001 Fi’OMAT (IX, ‘END «F rILE READING FIELD FILE FAR SEGMENTS I6> 

0C25 Gii T'/ SOO 

0C2f END 


0002 

0003 

0004 

0005 

0006 

0007 

OOOH 

0009 

0010 
0011 


C 

C 




»40f pfOie^tm 
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9f fict 

IPuit stimt4frrsst4it)'t. 
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PvJii QUALITY 


€ 


INDEX TO ALL VOLUMES 


The following index lists all computer programs and subroutines 
found in the text and printouts, and the variables listed in the 
text. The first number of each description is the volume number, 
and the remaining number refers to the section in that volume. 

A preceding L indicates the position of a listing. Therefore, 
1-3. 3.1 indicates a reference in section 3.3.1 of volume 1, and 
L2-14.6 indicates that a listing can be found in section 14.6 
of volume 2. The list of programs and subroutines is definitive. 
The list of vari 2 d>les is not complete since those not mentioned 
in text are not included. 
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